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COMO CRIAR FLASHES MA TELA 

UM PROGRAMA SIMPLE S DE 

BOMBARDEAMENTO AEREO 

ENRIQUECAAACAOCOM 



CHAMAS E EXPLDSOES 



Fa^ do seus jogos de agao um 
eifltrizante passatempa aprendendo 
a obter sfeitos gr^icos da eiqilosoes 
e incdnriios na tela do micro. 



E relativamente ficil tornar seus pro- 
gramas de jogos raais espetaculares e 
emocionantes; para isso, basta acresten- 
tar algumas rotinas com efeitos grdficos 
especiais, E elas nao precisam ser mui- 
to complexas para dar a esses jogos um 
dinamismo bem diferente. 

Como voce vera nesta tii;ao, existem 
muitas manesras de produzir efeitos vi- 
suais em BASIC. E preciso apenas sa- 



ber usar o dpo certo de efeito para o jo- 
go que esta sendo programado. 

Os efeitos graficos para chamas e ex- 
plosoes explicados aqui sao adequados 
a todos OS tipos de jogos que envolvem 
a destruigao de objetos como constru- 
Coes, carros, avioes. tanques, navios, 
etc. Alguns deles ficarao otimos tambem 
em jogos espaciais. 

Entretanto, como os efeitos de cha- 
mas e explosoes utilizam o conceito de 
blocos graficos, o tamanho maximo do 
alvo sobre o qual serao colocados e res- 
tringido peias dimSnsoes desses efeitos, 
Isso significa que voce nao pode 



adiciona-los a um programa qualquer; 
pelo contrario, essa inclusao deve ser 
cuidadosamente planejada. 

Pot outro lado, muJtos computado- 
res tern comandos embutidos no BASIC 
que permitem a obten<;ao de flashes (in- 
versao rapida de cores no video), que 
sao suficientes para muitos lipos tie jo- 
gos, como OS de guerra espacial, e que 
tern a vantagem de nao exigir adapta- 
ijoes para uso em um jogo determinado. 



Vamos mostrar aqui como criar, nos 
micros compativeis com o Sinclair Spec- 
trum (como o TK-90X), o efeito visual 
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de um inc^ndio provocado pela explo- 
sao de uma bomba; depois de tr rom- 
per fortemente, o fogo se extingue gra- 
dualmente, desaparecendo da tela a me- 
dida que o predio desaba. Isso serd ex- 
plicado mais adiante. 

Mas, primeiro. precisamos de um 
aviao e de uma bomba. Portanto, digi- 
te o programa abaixo: 

10 FOR N-USR "p" TO USR "q"+7 

20 READ a 

30 POKE n,a 

40 NEXT n 

50 DATA 32.16,136.154,155,8, 

16,32 

60 DATA 0,16,16,120.28,28,0,0 

Usamos aqui a lecnica convencional 
de blocos graficos definidos pelo usua- 
rio (UDG), disponivel no Spectrum. As- 
sim, criamos imagens tanto para o aviao 
quanto para a bomba, armazenadasem 
uma area especial, definida pelos ende- 
re^os devolvidos pclas expressoes USR 
"p" e USR "q" na !inha 10. Os codi- 
gos correspondentes estao nas declara- 
foes DATA das linhas 50 e 60, e sao co- 
locadas na memoria com o POKE da li- 
nha 30. Ao rodar o programa, nada 
acontecera de inicio. Para verificar se os 
codigos graficos em DATA foram digi- 
tados corretamente, digite a linha de co- 
martdo abaixo (sem precede-la com um 
nijmero de linha). 

PRINT AT 10,1S;CHR$ 159;" '; 
CHRS 160 

— que mostrara na tela os dois blocos 
graficos definidos. 

Em seguida, voce precisara de um 
predio ou casa para bombardear. Nao 
ha necessidade de um novo programa 
para isto. Apenas modifique as linhas 
10 e 50 do programa anterior. 

10 FOR N-USR "r" TO USH ''r"+7 

20 READ a 

30 POKE n.a 

40 NEXT n 

50 DATA 255,153,255,153,255, 

153,255.255 

Execute o programa de novo e teste- 
o, digitando esia linha (novamenie, sem 
colocar niimero de linha antes): 

PRINT AT 20.15; CHBS 161 

Tendo ficado satisfeito com o r^sul- 
tado viiivel na tela, digite NEW para 
apagar o programa da membrla. Os bio- 
cos graficos definidos antes ficarao ar- 
mazenados na membria RAM do com- 
putador, a menos que voc8 o desligue. 



COMECE BOMBARDEIO 



Entre agora o programa do bombar- 
^^l deio por meio das linhas seguintes: 



10 BORDER 0: PAPER 5: INK 0; 
CLS 

20 LET a$-" 
200 PRINT PAPER 4 ; AT 20,0;aS; 
a$:aS: a$ 

210 PRINT INK 1;AT 19, 12; CHRS 
161; CHRS l6l;CHaS 161 

O que estas linhas fazem, como voce 
vera ao executa-las com o comando 
RUN, e apenas desenhar uma faixa ver- 
de, com dezesseis pixels de altura, na 
parte de baixo da tela; sobre ela ergue- 
se um armazem ou coisa pareclda. A 
forma como isso e feito ilustra bem o 
uso de variaveis alfanumericas no tra- 
balho com gratlcos. 

Como voce precisa de 64 bloquinhos 
coloridos de verde para fazer o terreno 
gramado, a linha 20 coloca em a$ uma 
sequencia de dezesseis espaipos em bran- 
co. Em seguida, a linha 200 a imprime 
na tela quatro vezes, comei;ando na li- 
nha 20 e prosseguindo na linha 2 1 . Isso 
economiza a digitacao de 64 a$! 

A construtjao e colocada na tela por 
meio de um quatro PRINT do caracte- 
re grafico de codigo 161 (que e o asso- 
ciado a tecla r, no computador, confor- 
me a defini<;ao no programa anterior). 

Para fazer o aviao voar, s6e precise 
inciuir no programa as segumtes linhas: 

215 PAUSE 100 

220 LET ay-6: LET by-ay 

230 FOR x-0 TO 30 

240 PRINT AT ay.X;" ";CHR3 159 

250 LET bx-x 

260 IF by<19 THEN PRINT AT by 

+l,bx+l;CHRS 160; AT by , bx ; " " 

270 LET by-by+l; LET bx-bx+1 

280 IF X>29 THEN PRINT AT ay. 

x+1;" " 

290 NEXT X 

Nao existe nada de incomum nessa 
secao do programa: apenas as tecnicas 
convencionais dc movimenta^ao de um 
bloco grafico na tela, que temos usado 
em praticamente todos os programas de 
jogos para o Spectrum. Observe, entre- 
tanto, que as linhas 240, 260 e 280 sao 
necessarias para apagar as ultimas po- 
siQoes do aviao e da bomba, a medida 
que estes sao deslocados pela tela. 



A EXPLOSAO 



Vamos agora a parte mais importante 
do nosso exercicio de programagao: a 
explosao. E mais fSci! ve-la na tela do 
que tentar descreve-la. 

Portanto, antes de entrar o restante 
do programa, digite as linhas abaixo; 

1000 FOR n-ee to eo step -i 

1010 PRINT AT 10.15;CHRS 150 
1020 POKE 23675, n 
1030 PAUSE 50 



1040 NEXT n 
1050 STOP 

Mas, espere: nSo digite comando 
RUN, ainda. Voce poderia destruir a 
parte do programa que ja foi digitada. 
Ao inves disso, digite RUN lOftO, para 
comegar a executar so essa parte do pro- 
grama. Voce vera entao uma letra G 
aparecer na tela e depois esvaneccr-se 
gradualmente, ate scr substituida pela le- 
tra F. Isso acontece porque o laco 
FOR...NKXT, que vai da linha lOOO a 
1040, diminui de um em um o valor ar- 
mazenado na loca^ao de memoria 
23675, que e o ponto inicial para o seu 
bloco grafico UDG. Assim, a letra exi- 
bida na tela retrocede gradualmente no 
alfabeto, 

O programa de explosao usa um tru- 
que semellianie. Para fins de seguranga 
de seu programa, digite: 

POKE 23675.88 

que restaura o valor original do niime- 
ro armazenado na locagao de memoria 
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irvdjcada. Em seguida, apague todas as 
lintias de 1 000 a 1050 e digite o restante 
do prcigrama de bombardeio: 



90 POKE 
100 FOB n 
POKE usa 
300 rOH e 
310 POKE 
320 PRINT 
145 sCHHS 
6 

330 PRINT 
147 ;CHR$ 
6 

340 NEXT 
400 POKE 
SOO GOTO 
8000 DATA 
,25,126,12 
9000 DATA 
144,66.231 



23675,88 

-0 TO 31 : HEAD a: 

a"+n.ai NEXT n 
-86 TO 80 STEP -1 
23675, e 

INK 2;AT 19,12;CHH$ 

147iCHRS 145: ,PAUSE 

INK 2;AT 19,12;CHRS 
145;CHRS 14 7; PAUSE 



23675.88 

210 

0.0.0.0,0,0,0,0,2,128 

6.255,255,255 

0., 0,0, 0,0. 0,0, 0.4, 33, 

.255,255,255 



As linhas tOO, 8000 e 9000 definem 
OS UDG que voce precisa para explosao. 
A linha 100 le os dados comidos nas li- 
nhas 8000 e 9000, com os codigos nu- 



mericos das partes dos graficos e os co- 
loca na mem6ria atraves do POKE. As 
linhas 300 e 340 usam a tecnica descrita 
anteriormente para retirar uma imagem 
e substitui-la por outra, 

Existe, entrelanto, uma diferenga 
muito importante. Os UDG que criam 
a explosao sao baseados nos caracteres 
grificos B e D — respeciivamente, 
CHR$ 145 e 147. A medida que eles fo- 
rem desaparecendo da tela, voce nao vai 
querer que eles sejam substituidos por 
outras letras do alfabeto. Assim, os pri- 
mdros oilos elementos de cada declara- 
gao DATA, represeniando os caracteres 
A e C — CHRS 144 e 146, respectiva- 
mente — sao lodos zeros. 

Deste modo, ao inves de obter A e C 
substituindo B e D na tela, voce obtem 
espapos em branco. Se voce quiser ver 
como isio funciona em "camara lenia", 
inclua a linha abaixo (nao esque^a de 
retira-la, depois): 

PAUSE 

A linha 400 e necessaria. evidente- 
mente, para restaurar o valor original 
da memdria 23675, que era 88, antes 
que o programa se repita de novo. 



Os computadores compativeis com 
essa linha tern excelentes recursos para 
a obten^ao de efeitos visuais dramaticos, 
usando programas bastante curtos. Ten- 
te digitar e execuiar o programa abai- 
xo: 

7980 PMODE 3.1 

7990 PCLS 

8000 FOB F-1 TO 1000 

8010 SCREEN 1,0 

8020 SCREEN 1,1 

B030 NEXT F 

8040 CLS 

Observe que o programa coloca fai- 
xas coloridas que migram atraves da te- 
la; esse efeito e causado pela alternan- 
cia super-rapida dos diferentes conjun- 
tos de cores no computador. Ele pode 
ser usado, entre outras coisas, para as- 
similar o fim de uma fase do jogo, co- 
mo uma blindagem que foi penetrada. 

O modo grafico e definido pela linha 
7980, e a seguir a tela grafica e limpa pe- 
la ILnha 7990. A linha 8010 liga urn con- 
junto de cores, enquanto a linha 8020 
religa o conjunto anterior. O lago 
FOR... NEXT nas linhas 8000 e 8030 al- 
terna os conjumos de cores em lOOO 
vezes. 

A alternSncia liga e religa os conjun- 
tos de cores muito rapidamente — tao 
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HI 



rapidamente, na verdade, que o apare- 
Iho de TV nunca tem tempo de mudar 
as cores na tela completamente antes de 
entrar em a^ao o outro conjunto. Co- 
mo conseqiiencia, apenas uma faixa es- 
ireita da tela e mudada para cada cor. 
Se voce pretende utilizar esse progra- 
ma na forma de uma sub-rotina dentro 
de outro jogo (no qual funcionara ape- 
nas com um dos comandos PMODE 
descritos na pagina 144) ou com o pro- 
grama de batalha espacial apresentado 
a seguir, tera que fazer algumas altera- 
?oes. Primeiro, apague as linhas 7980 e 
7990; em seguida, adicione a linha: 

85 00 RETURN 

Veja agora o programa a seguir: 

10 PHODE 1,1 

20 DIH A{3) ,B(3) ,Mt3) 

200 FOR K-1536 TO 2016 STEP 32 

210 READ A.B: POKE K,A:POKE K+1 

,B 

220 NEXT 

230 GET(0,0)-a5,15),A,G 

240 GET(0.16)-{1S.31) ,M.G 

250 PCLS 

260 MX-120:MY-191:PX-120:Py-20 

270 PUT {PX,PY)-{PX+15,PY+1SJ ,A 

, PSET 

280 SCREEN 1,0 

290 PUT (MX,MY)-(MX+15,MY+15) ,B 

,PSET 

300 MY-WY-4 

310 IF MY<36 THEN GOSUB 8000:00 

TO 260 

320 PUT (MX,MY)-(MX+15.MY+15) ,M 

.PSET 

330 GOTO 290 

9000 £>ATA 252,63,3,192,15,240.6 

1,124,58,172,245,95,213,87,213, 

87 

9010 DATA 0,128,0.128,0.128.2,1 

60 . 10 , 168 . . 192 . 3 , 240 , 15 . 60 

O programa mostra uma nave extra- 
terrestre na iminencia de sei atingida per 
um missi!. No momento que este alcan- 
Qs. o alvQ, entra em agao a sub-rotina de- 
finida anteriormente, que move faixas 
coloridas pela tela. 

Quando usado com a sub-rotina, 
ele faz faLxas com qualquer PMODE 
que se queira, de modo que pode ser adi- 
cionado ao final de um programa, sem 
que seja necessario alterar as linhas 8000 
a 8040. 

Eis aqui uma adaptafao do progra- 
ma para fazer faixas que resulta em um 
cfeho visual mais elaborado, embora os 
grificos na tela nao permanefam into- 
cados como anteriormente. Voce pode 
digita-lo e executa-lo do jeito que esia, 
ou incorpor^-lb a um outro programa 
— como o da anixnagao da nave espa- 
cial — na forma de sub-rotina, Neste ca- 
■^o. voce precisard alterar o programa, 
apagando a linha 7990 e adicionando ao 



final uma linha com comando RE- 
TURN como foi feito anteriormente. 

7990 PMODE 3,1 
8000 FOR F-1 TO 3 
8010 FOR K-0 TO 1 
B020 SCREEN 1,K 
8030 FOR J»l TO 4 
8040 PCLS J 
8050 NEXT J 
8060 NEXT K 
80 70 NEXT F 
8080 CLS 

Sob a forma de sub-rotina, ele funcio- 
nard em qualquer um dos modos grAfi- 
cos com oonjuntos de duas cores (PMODE 
0, 2 e 4) e de quatro cores (PMODE 1 e 3). 
Alem de mudar os conj untos de cores, a ro- 
tina tambem limpa a tela 

As linhas 8030 a 8050 sao um lai;o FOR . . . 
NEXT que colore a tela com as cores dis- 
poniveis no conjunto ativo, 

Uma liliima variapao do programa; 
7990 PMODE 3,1 
8000 FOR F-1 TO 5 
8010 SCREEN 1,0 
8020 FOR K-1 TO 200: NEXT K 
8030 SCREEN 1,1 
6040 FOR K-1 TO 200: NEXT K 
8050 NEXT F 
8060 CLS 

Voce pode escolher entre digita-lo as- 
sim como estd (como um programa au- 
tonomo) ou na forma de sub-rotina {di- 
gitando a linha 7990 e adicionando um 
comando RETURN ao seu final). 

A tela piscara rapidamente, pois as 
linhas 8020 e 8040 inserem pequenos re- 
tardos de tempo, dando oportunidade 
suficiente para a mudanga de cor entre 
um conjunto c outro. 
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Podemos obter efeitos visuals ainda 
melhores atraves da programaijao de 
grdficos animados. Eis aqui uma id^ia 
para fazer a animagao grafica das cha- 
mas de um incSndio. que voce poderia, 
por exemplo, superpor a um alvo atin- 
gido por uma bomba. O programa foi 
escrito para o PMODE 1, e nao pode ser 
usado. do jeito que esta, com jogos em 
outros PMODE. Digite-o e execute-o: 

10 PMODE 1,1 

20 DIM B(3) ,E1(3I .E2{3) 

30 FOR K-1536 TO 2016 STEP 32 

40 READ A.B:POKE K, A: POKE K+1,B 

50 NEXT 

60 GET(0.0)-(i5.15) ,E1,G 

70 GET{0a6)-{15,31),E2,G 

BO SCREEN 1,0 

250 PCLS:HX-124:HY-146 

8000 FOR N-0 TO 15 

8010 PUT {HX,Hy+N)-(HX+15,HY+15 

) , El, PSET 

8020 FOR K-1 TO lOOrNEXT 



eO30 PUT (HX,HY+N)-(HX+15,H¥+15 

} ,E2,PSET 

8040 FOR K-1 TO 100:NEXT 

8050 PUT tHX,HY+N)-(HX+15,Hy+15 

) ,B,PSCT 

6060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 

52,63,252, 255 , 255 , 255 , 255. 255 , 2 

55 

9010 DATA 0,48,12,3.195,0,48,12 

,252.63,255,255.255,255,255,255 

Dois oonjuntos de chamas sSo colo- 
cados na tela pelo comando PUT. 

Os dados para os conjuntos de cha- 
mas estao nas declaragoes DATA das li- 
nhas 9000 e 9010. Eles sao colocados 
com comandos POKE na tela, com as 
linhas 30 e 50. O programa estd escrito 
em uma modalidade grdfica de quatro 
cores. As linhas 60 e 70 capturara, atra- 
ves do comando GET, as formas grafi- 
cas na tela e as armazenam nos conjun- 
tos El e E2, dimensionados na linha 20, 

As linhas 8000 e 8060 animam as cha- 
mas, Quando o programa passa pelo la- 
go FOR. ..NEXT, OS conjuntos El e E2 
surgem na tela, e apagam quando se 
coloca sobre eles o conjunto de espagos 
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em branco, B, com PUT. O topo das cha- 
mas ^ abaixado um pouco de cada vez, 
pelo+ N nas linhas com comando PUT. 
Vocepodeusar esseprogramacomo sub- 
rotina do programa abako, que Simula um 
bombardeio, mas nao se esquega de alte- 
rar a linha 20 para como ela aparece no pro- 
grama: edite-a com o comando EDIT ou 
digite-a novamente. Apague a linha 80, di- 
gitando o niimero 80, seguido de 
< ENTER >. 

30 DIM A(J) ,B(3) ,HO) .El(3) ,E2( 
3) 

200 FOR K-1536 TO 2016 STEP 32 
210 READ A, B: POKE K, A: POKE K+1 , 
B 

220 NEXT 

230 GET{0,0)-(15.15} .A,G 
240 GET(0,16)-tl5,31) .H,G 
250 PCLSrLINE{a.l63)-{255,191) . 
PSET,BF 

260 BX-124:HY-146:PX-0:PY-40:B- 






270 PUT tHX,HY}-(HX*15,Hy+15) ,H 

,PSET 

260 SCREEN 1.0 

290 PUT CPX,PY)-{PX+15,PY+15) .B 

,PSET 

300 PX-PX+4 

310 PUT{PX,Py)-(PX+15,PY+15) ,A, 

PSET 

320 IF PX-20 THEN B-1 :BX-PX+8 :B 

Y-PY+e 

330 IF B-1 THEN PRESET (BX, BY) : P 

BESET (BX+2 . BY) ; BX-BX+2 r BY-BY+2 : 

PSET(BX,BY.4) : PSET (BX+2 . BY. 4} 

340 IF BY- 148 THEN G03UB 8000 :B 

Y-0:GOTO 250 

350 GOTO 290 

8070 RETURN 

9020 DATA 0,0,2,0,130,128,162,1 

60,170,170,162,160,130,128,2,0 

9030 DATA 0,3,12,51,60,243,255, 

255 , 255 , 255 , 85 , 85 , 86 , 149 , 86 , 149 

Eis aqui duas versoes que pcrmitirao 
usar a sub-rotina em jogos programa- 
dos cm oufras modalidades graficas 
(PMODE). A primeira e um programa 
que deve ser usado com as PMODE 3 
e 4: mude apenas o niimero apropriado. 

10 PMODE 3,1 

20 DIH Bt6) ,E1(6) .E2(6) 

30 FOR K-1536 TO 2496 STEP 64 

40 READ A,6:P0KE K,A:POKE K+I,B 

45 POKE K+32,A:P0KE K+33,B 

50 NEXT 

60 GET (0,0)-(15.15) ,E1.0 

70 GET (0,16)-(15,jl) .E2,G 

80 SCREEN 1,0 

250 PCLS;HX-124:HY-146 

8000 FOR N-0 TO 15 

8010 PUT(HX.HY+N)-(HX-H5,HY+15) 

, El, PSET 

8020 FOR K-1 TO 100: NEXT 

9030 PUT {HX,Hy+N)-{HX+15,HY+15 

) ,E2,PSET 

8040 FOR K-1 TO 100: NEXT 

8050 PUT{HX,HY+N)-(HX+15,BY+15J 

,B,PSET 

8060 NEXT 

9000 DATA 0,12,192,0,3,195,63.2 

52,63.252.255,255,255,255,255,2 

55 

9010 DATA 0.46,12,3,195,0,48,12 

, 252 , 63 , 255 , 255 , 255 , 255 , 255 , 255 

Em segundo lugar. temos um progra- 
ma adequado para uso com PMODE 2: 

10 PMODE 2,1 

20 DIM B(6) ,E1(6) .E2(6) 

30 FOR K-1536 TO 2496 STEP 32 

40 READ A: POKE K.A: POKE K+16, 

A 

50 NEXT 

60 OET(0.0)-(15,15) ,E1,G 

70 GETC0.16)-(15,31),E2,a 

80 SCREEN 1,0 

250 PCLS:BX-124:HY-146 

8000 FOR M-0 TO 15 

8010 PUT(HX,HY+N)-(HX+1S,HY+15) 

, El, PSET 

8020 FOR K-1 TO 100:NEXT 

8030 PUT (HX,HY+N)-(HX+15,HY+15 



} ,E2.PSET 

6040 FOR K-1 TO 100: NEXT 

6050 PUT (HX . HY+N) - tHX+15 , HY+15) 

.B.PSET 

6060 NEXT 

9000 DATA 2,128,25,126,126,255, 

255, 255 

9010 DATA 4,33,144.66.231,255,2 

55,255 

9020 DATA 0,12,192.0,3,195,63,2 

52,63,252,255,255,255.255,255,2 

55 



Os computadores compati'veis com a 

linha MSX tem excelentes recursos (tais 
como OS sprites), para se conseguir efei- 
tos visuals dramaticos, usando-se pro- 
gramas bastante curtos, Tente digitar e 
executar o programa abaixo: 

7990 SCREEN 0:KEY OFF 
8000 FOR F-l TO 300 
8010 COLOR 10.10,10 
8020 COLOR 4,4,4 
8030 NEXT F 
8040 COLOR 15,4,4 

O modo de texto da tela e definido 
pela ilnha 7990 (SCREEN 0). A linha 
8010 estabelece uma cor de fundo (10) 
para a tela, com a mesma cor de mol- 
dura e de frente (por isso todos os nii- 
meros sao iguais); a linha 8020 especifi- 
ca um segundo conjunto de cores para 
a tela. O lapo FOR... NEXT nas linhas 
8000 e 8030 alterna os conjuntos de co- 
res trezentas vczes. A linha 8040 voita 
tudo a situagao original de cor da tela, 
ames de interromper o programa (se vo- 
ce interrompe-lo usando as teclas 
< CTRL> < STOP > . antes de lermi- 
nar o laipo dc repeti^ao, tera que digitar 
pelo teclado, ou com a tecia Fl. o co- 
mando existente na linha 8040), 

Como a alternanda das cores e mui- 
lo rapida, apenas uma faixa estreita da 
tela e mudada para cada cor. Esse efei- 
to so pode ser conseguido, no MSX, 
com a tela de texto. Podemos introduzj- 
lo como Fase final de um programa de 
animacao graHca. Acrescenteas seguin- 
tes linhas ao programa; 

10 SCREEN 2,2 

200 FOR K-1 TO 24 

210 READ A: READ 6 

220 AS-AS+CHR$(A} :BS-BS+CHRS{B) 

230 NEXT 

240 SPHrTE$(2)-A$:SPHITESCl)-BS 

250 MX-120:MY-191 

260 PX-120:PY-20 

270 PUT SPRITE 2,(PX.PY) 

280 PUT SPRITE 1,(MX.MY) 

290 PUT SPRITE 1,(MX,MY) 

300 MY-MY-4 

310 IF MY<36 THEN GOTO 7990 

320 PUT SPRITE 1,{MX,MY) 

330 GOTO 290 
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8050 RUN 

9000 DATA 252,0,3,0.15.0.61,2,5 

8,10,24.5,0,213.3,213,15 

9010 DATA 0,0,0,0,0,0,0,0,0,0.0 

.0.0.0,0,0 

9020 DATA 63,128,192,128.240,12 

8,124,160,172,168,95,192,87,240 

,87,60 

Os dots objetos a serem movimenta- 
dos na tela (um missi] e uma nave) sao 
definidos pelos codigos graficos das li- 
nhas 9000 a 9020, montados nos sprites 
1 e 2, As linhas 270 e 290 colocam esses 
sprites na tela, animando o sprite I (o 
missil) atraves do cicio repetido entre 
290 e 330. 

Quando o missil atinge a nave (linha 
3 ]0), prograrna de efeilo visual de fai- 
xas comeijando em 7990 e acionado. A 
linha 8050 manda execuiar o prograrna 
principal desde o comeijo, em virtude da 
necessidade de redefinifao da tela gra- 
fica na linha 10, 

Em seguida, temos uma adaptapao 
do prograrna para fazer t'aixas. Voce po- 
de digita-lo e executa-lo como esta, ou 
adiciona-lo a outro prograrna, como o 
da anima^ao da nave espacial. 

7990 SCREEN : KEY OFF 
8000 FOR F-1 TO 15 
8005 FOR K-1 TO 15 
8010 COLOR F,K,K 
8020 COLOR K,r,F 
8025 NEXT K 
8030 NEXT F 
8040 COLOR 15.4,4 
8050 HUN 

As linhas 8000 a 8030 formam dois 
lacos FOR.. .NEXT que colorem a tela 
com cores disponiveis na tela do texto 
MSX, A likima variagao do prograrna e: 

7990 SCREEN : KEY OFF 

8000 FOR F-1 TO 5 

6010 COLOR 4,10,10 

8015 FOR K-1 TO 150:NEXT K 

8020 COLOR 10,4.4 

8025 FOR K-1- TO 150:NEXT K 

8030 NEXT F 

8040 COLOR 15,4,4 

8050 RUN 

A tela pisca rapidamente, em cores 
porque as linhas 8015 e 8025 inserem pe- 



quenos reiardos de tempo, dando opor- 
lunidade para o video mudar de cor en- 
tre um conjunto e outro. 



Efeitos visuais ainda melhores podem 
ser obtidos atrave.s da programacao de 
sprites nos graficos animados. Eis aqui 
uma ideia para t'azer a animacao gr^fi- 
ca de um incendio. 

O prograrna foi escrito para a tela 
grafica SCREEN 2. Essecomando tam- 
bem e usado para definir o tamanho do 
sprite. Digite o comando NEW e entre 
as seguintes linhas; 

10 SCREEN 2,2 
g30 FOR K-1 TO 32 
40 READ A: READ B 
45 A$-A$+CHR$(A) :BS-B$-»-CHR$(B) 
50 NEXT 

60 SPRITES [2) -AS 
70 SPRITES (l)-BS 
75 SPRITE$(0)-STRINGS (32,255) 
250 HX-124iHY-146 
8000 PUT SPRITE , (HX , HY+16) , 12 
8005 FOR N-0 TO 15 
8010 PUT SPRITE 2, (HX,aY+N) ,6 
8020 FOR K-1 TO 100: NEXT 
8025 PUT SPRITE 2, (HX, HY+16) 
8030 PUT SPRITE 1 , (HX, HY+N) ,6 
8040 FOR K-1 TO 100: NEXT 
8060 NEXT 

9000 DATA 0,0.192.12.3.195,63,4 
8,63,252,255,255.255,255, 255 , 25 
S 

9010 DATA 255.255,255.255.255.2 
55,255,255,255,255,255,255.255. 
255,255.255 

9020 DATA 12.48,0,3.195.0,252,1 
2,252,63,255,255,255.255.255,25 
5 

9030 DATA 255.255.255,255.255,2 
55.255,255,255.255,255,255,255, 
255,255,255 

Dois conjuntos de chamas, armaze- 
nados em sprites de tamanho 2 (ou se- 
ja, 16 por 16 pixels), sao colocados na 
tela pelo comando PUT. Os dados pa- 
ra OS conjuntos de chamas estao nas de- 
claragoes DATA das linhas 90O0 a 9030. 
Eles sao lidos pelas declara?6es DATA 



na linha 40 e colocados nas varidveis AS 
e BS, na linha 45. Apos isso, os sprites 
mimeros 1 e 2 recebem o conteudo des- 
ses cordoes. Um terceiro sprite (um blo- 
co grdfico uniformemente cheio) tam- 
bem e definido na linha 75. A cor que 
esse bloco de sprite vai assumir ao ser 
colocado na tela e determinada pelo co- 
mando PUT na linha 8000 (no caso, 
azul, que ^ o codigo 4}. 

As linhas 8000 a 8060 animam as chamas. \ 
Cada vez. que o prograrna passa pelo h<;o ' 
FOIL..NEXT, OS dots sprites 1 e2 sao colo- 
cados na tela. O topo das chamas e abaixa- 
do iJJB pouco de cada vez, pelo + N nas li- 
nhas com o comando PUT, de mode que 
da a impressao de diminuipao do fogo. 

Esse prograrna pode ser usado como uma* 
sub-rotina do prograrna a seguir, q ue Simu- 
la um bombardeio: um ptedio e alvejado. 
Adicione as linhas: 

200 FOR K-1 TO 32 

210 READ A:READ B 

215 DS-D$+CHRS(A) : ES-ES+CHR$ (B) 

220 NEXT 

230 SPRITES (3) -DS 

240 SPRITES(4)-ES 

250 LINE(0, 163)- (255,191) ,12. BF 

260 HX-124:HY=146:PX=0 :Py=40:B- 



270 PUT SPRITE 4,(HX,HY),9 

300 PX-PX+4 

310 PUT SPRITE 3,(PX.PY),14 

320 IF PX-20 THEN B-1 : BX-PX+8 : B 

y-PY+8 

330 IF B»l THEN PRESET (BX.BY): 

PRESET (BX+2, BY) : BX-BX+2 : BY-BY+2 

:PSETCBX,BY) , 1 ; PSET (BX+2 , BY) , 1 

340 IF BY-148 THEN PUT SPRITE 4 

, (HX, HY+16) ; PRESET (BX,BY):PRES 

ET (BX+2,BY) :a0SUB 8000:BY-0:GO 

TO 250 

350 GOTO 300 

8070 RETURN 

9040 DATA 0.0,0,0,2,12,2,12,130 

,60,130,60,162,255.162.255 

9050 DATA 170,255,170,255.162,8 

5 , 162 , 85 , 130 . 86 , 130 , 86 , 2 , 96 , 2 . 8 

6 

9060 DATA 0,3,0,3,0,51.0,51,128 

,243,128,243,160,255,160,255 

9070 DATA 170,255.170.255,160,8 

5.160,85,128,149.128,149.0,149, 

0,149 




Ifd PROCRAMACAO DiJOGO 



Nesse trecho suplementar , mais dois 
sprites, 3 e 4, sao definidos pelas linhas 
200 a 240, a partir dos codigos graficos 
armazenados nas declaragoes DATA 
nas linhas 9040 a 9070. 

A linha 250 traga um retangulo de cor 
verde (o chSo gramado); a linha 270 co- 
loca dentro dele o desenho da casa. A 
animagao grdfica do aviao e da bomba 
caindo e realizada pelas linhas 310 e 350. 
Na linha 340 e chamada a sub-rotina de- 
finida a partir de 8000, que recebe um 
RETURN na linha 8070. 



\MM 



Nao e tao fdciJ criar efeitos visuals no 
Apple se o compararmos com outros 
micros. Ao inves de representar os de- 
senhos atravSs de numeros binaries con- 
vertidos para decimals e colocados na 
memdria de video ("1" representaria 
ponto aceso, e "O", ponto apagado), 
temos que criar uma tabeia que pode ter 
ate 256 figuras, e uma vez que esteja 
num lugar apropriado da memdria po- 
de-se desenhar e mover as figuras com 
o comando DRAW, sendo a cor defini- 
da por HCOLOR. O programa a seguir 
move uma chama na base da tela. 



10 

64 
20 
30 
40 
50 



HOME 



HGEl t SCALE- 1: ROT- 



POKE 232,0: POKE 233,3 
FOB K - 768 TO 868 
READ A: POKE K.A 
NEXT 

250 HX - 124:HY - 146 

8000 FOR N - 1 TO 15 

HCOLOR- 5 

FOR K - 1 



8010 

8020 

8030 

OH- 

8040 

OH- 5 

8050 

2: HCOLOR- 
6060 DRAW 1 AT HX 

2: HCOLOR- 5 
9070 NEXT K 
8080 NEXT ft 



TO 3 
DRAW 1 AT HX,HY + N; HCOL 

DRAW 1 AT HX.HY + N: HCOL 

DRAW 1 AT HX + 3,HY + N + 



+ 3,HY + N + 



8090 TEXT 

9000 DATA 3, 0, 8, 0, 64. Q, 0,1, 15 

0,18,54,37,36.36,4,11,54,54,54, 

46,36 

9010 DATA 36,11,54,54,46.36,4 

,100,100,11,54,54,54,37,36,4,10 

0,100,11.54 

9020 DATA 54,54,46,36,100,100 

,100,11,22.54,54,37,36,100,100, 

11,54,54,54.37 

9030 DATA 36,4,0,45,56,255,21 

9,35,109,73,45,37,63,63,63,63,3 

9,45,45.45 

9040 DATA 45,45,46,44,46,46,3 

7.63.231,219,63,255, 219 , 39 , 64 , 7 

3,44,46,5,0 

O mesmo incSndio e desenhado e 
apagado rapidameme em duas positoes 
diferentes, dando a impressao dc fogo. 
As chamas desaparecem Jentamente na 
parte inferior do video, O programa 
funciona da seguinte maneira: 

A tabeia de figuras esta nas linhas 
DATA (9000 a 9040). Eta e colocada na 
memoria pela repetigao do comando 
POKE da linha 40, devida ao lago 
FOR...NEXT das linhas 30 e 50. A li- 
nha 20 informa onde estd a tabeia de fi- 
guras na memoria, A linha 10 limpa a 
tela, estabelece o modo grafico de alta 
resolufao, fixa o tamanho (SCALE) e 
a orientaijao (ROT) da figura. 

As linhas 8{X)0 a 8060 animam as cha- 
mas e as fazem desaparecer. Cada vez 
que o programa repete as linhas que fi- 
cam entre FOR e NEXT, as chamas sao 
desenhadas e apagadas em duas posigoes 
diferentes da tela. Elas vao baixando 
lentamenle devido ao + N nas linhas 
HPLOT, de forma que o fogo parece 
acabar. Isso acontece porque o desenho 
invade o espapo reservado para texto na 
parte inferior da tela, onde podemos co- 
locar dados graficos sem que eles apa- 
regam. Para entender melhor, experi- 
mente introduzir a linha: 

15 POKE -16302,0 




Essa linha elimina o espapo reserva- 
do para textos da parte inferior da tela, 
tornando visiveis quaisquer grdficos aJi 
colocados.. Rodando o programa com 
essa modificafao, voce vera as chamas 
ocuparem posifoes cada vez mais bai- 
xas sem desaparecer. Nao se esquefa de 
apagar essa linha digitando 15 e < RE- 
TURN > , Nosso incendio ficara mais 
interessante se for produzido por uma 
sub-rotina dentro de um jogo, como no 
exempio a seguir. Apos acrescentar es- 
sas linhas, voce vera uma pequena casa 
set bombardeada e pegar fogo. Nao se 
esque(;a de apagar a linha 15. 



55 
60 



190 
200 

210 

215 
220 
235 
250 



I - 
FOR J - 6674 TO 15810 
STEP 10 24 
70 READ Ad) ,fl(IJ 
80 I ■ I + 1 
100 NEXT 
I - 
FOR J - 8674 TO 15810 
STEP 1 024 

POKE J.Btl) : POKE J + 
l.ACD 
I - I + 1 
NEXT 

FOR K - 1 TO lOOO: NEXT 
HX - 139;HY - 153:PX - 259; 



;B =■ 



290 
300 
310 
320 

330 



340 

350 

8090 

9050 



PY 

py 



PY - 40 
PX - PX - 4 

HCOLOR- 6r DRAW 2 AT PX 
HCOLOR- 0: DRAW 2 AT PX 
IF PX - 239 THEN B - 
1:BX - PX:BY - PY + 8 
IF B - 1 THEN HCOLOR- 0: 
HPLOT BX.BY: HPLOT BX - 
2,BY:BX - BX - 2 : BY - 
BY + 2: HCOLOR- 3: HPLOT 
BX,By : HPLOT BX - 2 , BY 
IF BY - 152 THEN GOSUB 
8000 :BY = 0: GOTO 190 
GOTO 290 

RETURN 

DATA 0,3,12.51.60,243, 
255.255,255,255,85,85,86, 
149.86,149 

A casa e desenhada pelos comandos 
POKE da linha 210. O padrao do dese- 
nho e obtido da linha 9050 e guardado 
nas variaveis indexadas A e B. Progra- 
mar desenhos dessa maneira e mais fd- 
cil que definir tabelas, mas quando se 
deseja movimento e velocidade (como 
nas chamas e no aviao) e precise usar 
as tabelas e o comando DRAW. 

O formato do aviao ji estava na ta- 
beia do programa anterior. As chamas 
sao a figura 1 da tabeia, e o aviao e a 
figura 2. Essas figuras sao desenhadas 
respectivamente pelos comandos 
DRAW i e DRAW 2. 

Para parar o programa aperte simul- 
taneamente < CTPL> e C. Mesmo que 
nao apare^a nada na tela, digite TEXT 
e aperte < RETURN > e tudo voltarS 
ao normal. 




COMAN 
DATA 




READ 



Se voce pretende evitar a digitapao 
de programss longos e cansativos, 
conv^m preparar seu computador para 
a leitura de dados armazenados 
internamente em dectaragoes DATA. 



As variiveis sao o grande responsa- 
vel pela versatilidade do computador. 
Atribuir valores a elas e, a maior parte 
das vezes, simples e direto: basta, por 
exemplo. dizer LET X = 5. Mas ha oca- 
sioes em que a quantidade de informa- 
i;6es que se deseja utilizar em um pro- 
grama e muito grande. Nesses momen- 
Tos, e precise recorrer as declaragoes 
DATA, e aos comandos READ e RES- 
TORE (esses comandos nao estao dis- 
poniveis no BASIC de alguns micros). 

A patavra DATA (dados, em ingles) 
6 utiiizada para muitas coisas. Assim, 
tudo o que e fornecido ("dado" pelo 
programador ou pelo usuario) ao com- 
putador e incluido nessa categoria. Nes- 
se artigo. porem, vamos usar a expres- 
sao dados apenas em seu sentido mais 
restrito. ou seja, informafoes inclui'das 
cm um programa por meio da decEara- 
*;ai> DATA. 

A declaraijao INPUT serve para atri- 
buir valores a uma variavel. Mas ela e 
liiil somente enquanlo a informacao e.s- 
tiver sendo fornecida ao computador ca- 
da vez que o programa for rodado. 

Existem valores fixos, porem, que 
nao prccisam ser entrados ou allerados 
pelo operador, e podem, assim, ser in- 
corporados permanentemente ao pro- 
grama. Neste caso, entra em cena o se- 
gundo metodo de airibui^ao: a declara- 
*;ao LET. Mas, quando as informaiy'des 
sao em grande quantidade, o emprego 
de comandos LET torna-se cansativo. 

Veja a seguir um exemplo onde uma 
iista fixa de cabe^alhos e utiiizada para 
imprimir um dociimento; 

10 LET A$-"DIA-* 

20 LET BS-'SEMANA" 

30 LET CS-"MES" 

40 LET C$-"ANO" 

50 PRINT AS.BS.CS.DS 

Veja como DATA pode ser utiiizada 
com o mesmo objetivo e com uma re- 
du^ao no numero de linhas necessarias: 

10 READ A$,BS.C3,D$ 

20 PRINT AS.BS,C9.D3 

100 DATA DIA,3Et4ANA.MES,ANO 

Em programas curtos nao hi quase 
difereni^a entre usar LET ou DATA- 

I Agora, se voce quiser trabalhar com cin- 
qiienta cabegalhos, em vez de quatro, o 




primeiro programa precisara de 46 de- 
claravoes LET a mais, enquanto o se- 
gundo exigira apenas uma ou duas li- 
nhas a mais. 

Nos compaii'veis com o Spectrum 
(como o TK-90X), as palavras DA.TA 
devem estar sempre entre aspas. Nos ou- 
tros modelos as aspas sao dispensaveis. 
A linha 100 passaria a ser escrita assim; 



100 DATA 
"ANO" 



•D1A","SEMANA",''MES' 



COMO FUNCIONAM READ E DATA 



Quando o computador se depara com 
uma insiruijao READ, ele passa a procu- 
rar em todo o programa onde se encontra 
a primeira. declaraff'ao DATA. Entao ele a- 
tribui o primeiro item de DATA a variavel 
correspondente no comando READ. No 
programa acima, o cordao "DIA", na de- 
clara^ao DATA, e atribuido a varidvel A$, 



"SEMAN A" e atribuido a BS, etc O com- 
putador ignora qualquei declara(;ao DA- 
TA a menos que uma declaratao READ fa- 
fa com que ele a ieia. 

10 DATA ALEMANHA 

20 READ AS.BS 

30 DATA BRASIL, ITALIA, ESPANHA 

40 READ C$,D$ 

E mais facil ler o programa quando 
todos OS DATA estao reunidos em um 
mesmo lugar. E existc uma regra inaba- 
lavel: os comandos DATA devem apa- 
recer na ordem em que o computador 
vai le-los, por meio da instrupao READ. 



DIFERENTES TIPOS DE DATA 



Alem de cordoes alfanumericos,- as 
declarafoes DATA podem conter niime- 
ros. A linha Sinclair Spectrum tambem 



COMO FUNCIONAM AS 



OECLARACOES READ E DATA 



DIFERENTES TIPQS DE DATA 

UTILIZE DATA PARA FAZER 

UMA LISTA TELEFONICA 



A DECLARACAO RESTORE 



APLICACQES PARA LISTAS 

^ DE DATA 

COMO DESENHAR GRAFICOS 
SIMPLES A PARTIR DE DATA 




permite que voce utilize varidveis e fun- 
coes dentro de declara^oes DATA. 

DATA "RECIFE". 256, a*5,SQH<niJin] 

No comando READ as variaveis devem 
ser colocadas na mesma ordem que os itens 
relatives a DATA. A linha DATA acima 
pode ser lida com o comando: 

HEAD AS.N.X.y 

A primeira variavel c uma variavel al- 
fanumerica, para coincidlr com o pri- 
meiro item de DATA. Mas os tres itens 
seguintes sao variaveis numericas. 

E facil cometer erros quando se usa 
DATA em um programa. Os principais 
problemas ocorrem quando nao se pos- 
sui um numero suficiente de itens ou 
quando se tenta ler com READ uma va- 
riavel de outro tipo, em DATA. Se a li- 
nha DATA acima tivesse sido digitada 
incorretamente, tal como DATA 256, 



RECIFE, a *5, entao AS receberia o va- 
lor 256! Embora errada, ela aao seria re- 
jeitada {a nao ser no Spectrum) pois o 
computador interpreta o valor numeri- 
co 256, neste caso, como o cordao alfa- 
num^rico '*256". 

Em contrapariida, se o computador 
temasse Jer o cordao "RECIFE" e o 
atribuissc k variavel numerica N, pode- 
ria perceber o erro e responder com uma 
mensagem tal como; "!ipo madequado " 
(erro TM, ou TYPE MISMATCH), ou 
' 'dado incorrelo ' ' (erro BAD DATA, ou 
INVALID DATA, dependendo do com- 
putador); ou poderia supor que "RECI- 
FE" e um nome de variavel nao del'ini- 
do anteriormente; sua resposta, neste 
caso, seria uma mensagem de erro co- 
mo: "varidvet nao encgnrrada". 

Outro erro comum e colocar itens a 
menos em DATA. 



UMA LISTA TELEFONICA 



Eis aqui um programa que utiliza um 
\dniO para a leitura interna de dados, 
atraves das declara(;oes READ e DATA. 
E um programa muito simples para eia- 
borar uma lista telefonica particular. 

DO 

O programa abaixo roda apenas no 
TRS-Color. Para utiliza-Io nos micros 
TRS-SO, modifique os numeros do 
PRINT nas linhas 50 e 60, para 640. 

5 CLS 

10 PRINT e70,"DIRETOBIO TELEFON 

ICO" 

12 PRINT 

20 INPUT "DIGITE NOME";B$ 

30 FOR J-1 TO 5 

40 READ N$,T$ 

50 IF NS-RS THEN PRINT §320, "0 

NUMERO DE ";RS;" E: " ; T$ ; END 

60 IF NS-"FIM- THEN PRINT 8320, 

RS;" NAO ESTA NA LISTA" 

70 NEXT J 

500 DATA ALCINO, 384-42 76. JUNIOR 

,997-4036,HODRIGO,52-5114,GERTB 

UDES . 5666-99994 . FIM , FIM 



5 CLS 
10 PRINT AT 2,6;"GUIA TELEFON 



ICO" 

15 RESTORE 

20 INPUT "DlQlte 

30 FOB J-1 TO 5 

40 READ NS,T$ 

50 IF NS-RS THEN 

,1;"0 numero de ' 

: GOTO 80 

60 IF NS-"FIM" THEN PRINT AT 

ICSsHS;" NAO ESTA NA LISTA" 

70 NEXT J 

60 PRINT AT 12,0;'*Quer outro 

numero (S/N)?" 

90 PAUSE 
100 IF INKEYS-"S" THEN GOTO 5 
110 IF INKEy$-"N" THEN GOTO 
2000 

500 DATA "ZULEICA", "22-6400","' 
MARIA", "33-7237". "MABCELO". "3 
4-4009", "RICARDO", "13-71824"," 
FIM", "FIM" 



o none" ,RS 



PRINT AT 10 
;N$;' e " ;T$ 



m 



10 LOCATE 12.3:PHlNT"Liata tele 

fOnica" 

12 PRINT: PRINT 

15 RESTORE 

20 INPUT"Digite O nome" ; RS 

30 F0RJ-1TO5 

40 READ NS.TS 

50 IFN5-RS THEN LOCATE 5,15:PRI 

NT-0 numero de "iNS;" € ";T$:GO 

TO 80 

60 IFNS-"END" THEN LOCATE 5.15: 

PRINTRS;" nSo estd na lista!" 

70 NEXTJ 

500 DATA ESTELA, 321054, JOSfi, 529 

884, CELI , 326747 , FERNANDO. 511934 

, END , END 
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HOME 








10 


VTA8 3 : HTAB 1 2 


PRINT "Ll3 


ta 


telefonica' 






12 


PRINT 


: PRINT 






20 


INPUT 


"Digite o 


none ; 


"iRS 


30 


FOR J 


- 1 TO 5 






40 


READ N$,T$ 






50 


IF N$ 


- HS THEU 


VTAB 


15: H 


TAB 


5: PRINT "0 nuBiero de 


-;NS; 


" e 


";TS: 


END 






60 


IF NS 


- "END" THEN VTAB 15 



: HTAB 5: PRINT H$ i " nao eata n 

a listai" 

70 NEXT J 

500 DATA FERNANDO, 510536. MA 

RILIA, 543286, JOAQUIM, 28999, ROB 

ERTA. 7 1985 2, END, END 



Voce pode utilizar os nomes e os nii- 
meros dos telefones dos seus amigos na 
linha DATA e coiocar tantos itens DA- 
TA quant o desejar; mas nao se esquega 
de ajustar o contador de lagos na linha 
30. 

A lista de itens em DATA e t'inaliza- 
da com as palavras FIM, FTM, para a 
linha 60 checar se ja foi alcangado o fim 
da lista. Se o programa tiver lido a lista 
em DATA ate o fim, isso significa que 
nome nao foi encontrado, e o progra- 
ma imprimira uma mensagem para di- 
zer isto a voce. FIM (on "FIM" no 
Spectrum) deve ser entrado duas vezes 
porque a linha 40 le dois itens llATA 
de cada vez. 

Os cordoes em DATA podem comer 
espafos, mas nao virgulas. Se voce pre- 
cisar entrar urn cordao DATA com uma 
vi'rgula, coloque o cordao entre aspas: 

10 READ N$.A$;BS.CS 

20 DATA JOSE DOS CAMPOS, 

*AV. BRASIL.Z3". 

CAMPINAS, 13100 

A primeira linha do endere<?o deve ser 
escrita entre aspas por causa da vt'rgula 
depois de AV. BRASIL. 



COMO USAR A DECLARACAO RESTORE 



Com OS m^todos vistos ate agora, um 
programa podera ler uma lista de DA- 
TA apenas uma vez. a menos que voce 
o rode de novo. Para ler mais uma vez 
o conjunto de itens em DATA voce de- 
ve incorporar ao seu programa a decla- 
ra(;ao RESTORE ( restaiirar, em ingles), 
Se voce quiscr consultar os numeros dos 
telefones dos amigos sem rodar o pro- 
grama, substitua END ou STOP na 
linha 50 por GOTO 80 e acrescente: 

QQ 

O programa listado abaixo roda ape- 
nas no TRS-Color. Para utitiza-lo em 
micros da linha TRS-80, modifique o 
numero do PRINT na linha 80 para 832, 

80 PRINT 6416, "VOCE ^UER OUTRO 

NUMEHO(S/N)?" 

90 KS-INKEYS:IF K3-"" THEN GOTO 

90 
100 IF KS-'S" THEN GOTO 5 
110 END 



80 PRINT AT ii.Oj-Quer outro 

numero (S/N)?" 

90 PAUSE 
100 IF INKEYS-"S" THEN GOTO 5 
110 IF INKEYS-"N' THEN GOTO 
2000 




80 LOCATE 3,21 : PRINT" VocS quer 

outro niimero? (S/N) " 

90 K$-INKEY$:IF KS-"" THEN 90 

100 IF K$-"S" THEN 5 

110 END 



ilE 



80 VTAB 22; HTAB 1: PRINT "Uoc 
e deaeja mala algum numero? tS/ 

N)"! 

90 GET K$ 

100 IF K5 - "S" THEN S 

110 END 

Mas o que acomecera quando voce 
rodar o programa? Na primeira vez, ele 
funcionarci bem. Mas, se voce pressio- 
nar uma tecla para outra repeticao da 
consulta, ele falhara devido a falta de 
mats itens em DATA. Mas existe uma 
solut^ao para o problema. Acrescente: 

15 RESTORE 

Desta vez o programa continuard 
funcionando toda vez que se repetir, 
pois comando RESTORE instrui o 
computador a voltar ao ini'cio da lista 
em DATA. £ uma boa iddia colocar 
sempre uma deciaracao RESTORE no 
inicio de um programa que voce estiver 
desenvolvendo. Isso faz com que voce 
nao fique sem nenhuma DATA, ao ten- 
tar testa-lo. Se, mais tarde, voce quiser 
remover a linha RESTORE, bastard co- 



locar uma declarai^ao REM ap6s a Unha 
em que ela estd, para lembra-lo. 

Com o comando RESTORE voce po- 
de reutilizar uma lista DATA sempre 
que necessario. Ele e particularrnente 
titil quando se quer ler virias vezes' uma 
mesma lista de dados para pesquisar um 
determinado item, como no caso do 
programa para a lista telefonica. 



APDCACOES PARA DATA 



As declaragoes DATA sao liteis pa- 
ra todos OS tipos de programa e voce cer- 
tamente ja as utilizou em desenhos de 
labirintos e outros efeilos. 

Freqiientemente, um grande numero 
de linhas DATA ^ utilizado para center 
todo o texto necessario a um jogo de 
aventuras, ou em programas aplicativos 
simples. Pode-se tamb^m armazenar 
questionirios com todas as perguntas e 
respostas em linhas DATA. E os jogos 
de fliperama em BASIC as utilizam pa- 
ra definir tanto os caracteres como os 
pianos de fundo. 

Programadores experientes empre- 
gam DATA para linguagem Assembly 
ou em programas em cddigo de maqui- 
na (veja a primeira lifao de Cddigo de 
Mdquina). Tais programas consistem de 
um tatjo FOR... NEXT curto que le os 
cddigos de mciquina em uma lista DA- 
TA e usa comando POKE para inseri- 
los na membria. 




/^y. 
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Qualquer programa que contenha 
textos padronizados, figuras ou f undoes 
pode fazer urn largo uso das tistas DA- 
TA. Empregadas de maneira cuidado- 
sa, essas listas constituem um poderoso 
instrumento de programa«;ao. 



UTILtZE DATA PARA GRAFICOS 



As declara^oes DATA servem igual- 
mente para programas de grdficos, pa- 
ra definir coordenadas, desenhar ou 

< evocar caracteres graficos predefinidos 
na memoria ROM. Sua utilidade, po- 
rem, diminui quando o que se quer e tra- 
^ar formas regulares onde as coordena- 
das ou o formato dos graficos podem ser 

\ calculados. Um exemplo disso pode ser 
encontrado no programa para o TRS- 
Color, onde os padroes repeiitivos no 

^ topo das muralhas de um forte sao cal- 
culados. 

As declarafoes DATA no programa 
abaixo foram deliberadamente divididas 
em varias linhas. Assim, se voce quiscr 
e.xaminar ou modificar o programa fu- 
turamente e achar os itens em DATA 
que correspondem as varidveis do pro- 
grama, poderd seguir uma a uma as ins- 
trugoes READ; mas para um programa 
longo isto sera muito cansativo. O me- 
Ihor sera dividir as declaraijoes DATA 
em grupos, e — se voce quiser evitar a 
memorizagao de tudo o que esta Id den- 
tro — utitizar comandos REM para ex- 



plicar para que serve cada grupo de de- 
claragoes DATA. 



O programa seguinte desenha uma casa: 

10 CLS: COLOR 4,5 

20 FOR A-0 TO S 

30 FOR B-1 TO 17 

4 READ C 

50 UPOKE (171+A*40)+B.C 

60 NEXT B 

70 NEXT A 

500 DATA 32.32,32,32,32.32,32,3 

2,32,32,32,32,219,219.219.32,32 

510 DATA 32,32,32,32,32.32,32,3 

2,32,32,32.219,219,219,219,219, 

32 

S20 DATA 32,32,32,32,32,32,32,3 

2,32,32,219.219,219,219,219,219 

.219 

530 DATA 32.32,32,199,219,219,3 

2.32,3 2.32,32,222,219,219,219,2 

19,219 

540 DATA 32,32.199,219.219,219, 

219.32.221,32,32.219,219,219,21 

9 219 32 

550 DATA 32.32,215,215,215,215, 

215.219,219,193.32.32.222,215,2 

19 32 32 

560 DATA 32.3^,215.16,215.202,2 

15.215,21,215.32,32,32,215,32,3 

2, 32 

570 DATA 32,32,215,215,215,202. 

215.215,215,215,32,32.32,215,32 

32 , 32 
580 DATA 195,195,195,195.195,19 

5 , 195 . 195 . 195 , 195 , 195 , 195 , 195 , 1 
95,195,195,195 

Os niimeros em DATA fomecem as 
coordenadas das varias partes da casa (li- 
nhas 500 a 580). A parte principal do pro- 
grama estabelece os lapos FOR—NEXT pa- 
ra a leitura (comando READ na linha 40) 
das partes pertinentes eni DATA e as dese- 
nha, colocando os codigos de caracteres na 
pagina de memoria da tela, por meio do co- 
mando VPOKE. 



Este programa utiliza READ... DA- 
TA para desenhar uma ponte. Se voce 
entrar o programa e roda-lo em estagios, 
sera bem mais fdcil ver o que estd acon- 
tecendo, e assim verificar se o digitou 
corretamente: 

10 FOa t-74 TO 80 STEP 3 

20 PLOT 35, t 

30 DRAW 175,0,-2.5 

40 NEXT t 

Este segmento do programa utiliza 
um !a?o FOR. ..NEXT para ajudar a 
tra^ar tres pontes pr6ximo^ ao lado es- 
querdo da tela; em seguida, ele desenha 



uma linha em forma de arco a partir de 
cada ponto. A linha 30 significa: "de- 
senhe zX.k. um ponto localizado 175 pi- 
xels a direita do pixel inicial". O parS- 
metro -2,5 da a linha sua forma curva, 
eviiando a linha reta. 

100 FOR n-18 TO 39 

110 HEAD a 

120 PLOT n,45 

130 ORAM O.a 

132 PLOT n+188,45 

134 DRAW 0,a 

140 NEXT n 
1000 DATA 70,70,67.67,70,70.60, 
60,57.57,60,60.57.57.60,60,70,7 
0,67,67,70,70 

Esta e a segao que desenha as torres. 
O la(;o entre as linhas 100 e 140, mais 
o numero 45 (pixels da parte inferior da 
tela), nas Hnhas 120 e 132, tragam os 
pontos na parte inferior de cada um dos 
conjuntos de linhas verticais que defi- 
nem a torre. 

Emao, as linhas 110 e lOOOassumem 
o comando. A linha 1 10 diz ao compu- 
tador para ler, na linha 1000, a altura 
(novamente em pixels) de cada uma das 
22 linhas verticais. Assim, a primeira ii- 
nha serd 0,70 — isto 6, vertical e com 
70 pixels de altura; a segunda linha sera 
0,70, a terceira 0,67 e assim por diante, 
Se voce quiser ver o que esta acontecen- 
do, tente inserir uma linha temporaria 
tal como 135 PAUSE 100 apos a Unha 
134. 

300 PLOT 0.75 

310 DRAW 255,0-0.1 

320 PLOT 0,78 

330 DRAW 255.0,-0.1 

Essas linhas dcsenham a pisia de ro- 
lamento e -0.1 produz uma ligeira cur- 
va para cima. 

400 FOR r-62 TO 182 STEP 20 
410 PLOT r.7e 
420 READ b 
430 DRAW O.b 
440 NEXT r 
1010 DATA 42,55.63,65,63,55,42 

Essas, por sua vez, produzem os ca- 
bos verticais entre o arco e a pista de ro- 
lamento; o lafo FOR, ..NEXT ajuda a 
tragar as posigoes iniciais dos cabos, en- 
quanto as linhas 420 e 1010 regulam as 
suas fespectivas alturas. 

Se voce quiser que o programa rode 
de novo, automaticamente, acrescente 
essas linhas: 

5 CLS; RESTORE 
450 GOTO 5 

A linha 5 limpa a tela e permite que 
o programa leia novamente o DATA. 
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TRABALHE COM INDICAOORES RESTORE 



Ate agora, o linico problema com 
DATA se resumiu a que a inforina«;ao 
precisou sempre ser chamada na mesma 
seqiiencia, come^ando do mesmo lugar. 
Utilizando o RESTORE, e possivel vol- 
tar ao inicio de uma Hsta, mesmo que 
nao se tenha atingido o fim. Mas conio 
se salia para o meio de uma lista? 

Nos computadores das linhas Sinclair 
Spectrum e MSX, existe um modo para 
se responder a essa questao. Em vez de 
uma lista apenas, %oce pode utilizar va- 
rias, direcionando assim o computador 
para a lista adequada. Tente acrescen- 
tar essas linhas extras ao programa pa- 
ra o Spectrum: 



6 INPUT "PONTE ANTIGA OU MOD 
EHKA?"; yS 

7 IF yS-"a' THEN RESTORE 
1000 

8 IF yS-"m" THEN RESTORE 
2000 

9 IF ySO'a- AND ySO'm" 
THEN GOTO 5 

10 FOR t-74 TO 80 STEP 3 

20 PLOT 35, t 

30 DRAW 175.0,-2.5 

40 NEXT t 
2000 DATA 83,84,85,86,87,88,89, 
90 , 90 . 90 , 90 . 90 , 90 . 90 . 90 , 89 , 88 , 8 
7,86,85.84,83 
2010 DATA 42,55,63,65,63,55,42 

Os numeros que seguem o comando 
RESTORE sao conhecidos como indi- 
cadores de RESTORE. Eles direcionam 
o computador para uma lista DATA. 
No programa acima, se voce pressionar 
a tecla O, o indicador RESTORE sera 
definido com o 1000, na itnha 7. 

Se voce quiser que o micro va para 
a primeira lista DATA disponivel no 



programa, nao serd necessdrio um indi- 
cador: usar o RESTORE sem um niime- 
ro de linha e o mesmo que restaurar o 
numero da primeira linha DATA. 

Indicadores de restaura^ao sao mui- 
to liteis em programagao de jogos. Nu- 
ma aterrissagem, por exemplo, voce po- 
deria escrevcr uma rotina para checar se 
houve uma colisao ou um pouso scgu- 
ro. As listas DATA poderiam entao 
center informagoes para gerar sons pa- 
ra as duas alternativas. e o indicador 
RESTORK scrviria para indicar a lista 
correta. 

Ouira vantagem do RESTORE inde- 
xado para definir os elementos de uma 
figura e que fica hem mais f^cil acres- 
centar novos elementos a ym desenho 
lerrainado; se quisermos adicionar um 
muro a casinha da ilusira^ao abaixo, 
bastard colocar mais linhas DATA: 



mt 



60 LOCATE 0, 21 iPRINT'-Preasione 

qualquer tecla para uma casa co 

m muro! " ; 

90 IFINKEYS<>""THENHESTOflE520;G 

OTO10:ELSEGOTO90 

590 DATA 203,203,203,203,203,20 

3.203,203,203,203,203,203,203,2 

03,203,203,203 

600 DATA 203,203,203,203.203.20 

3.203.203.203,203,203,203,203,2 

03.203,203,203 

Feito o desenho, o computador per- 
guntara sc voce quer uma casa com mu- 
ro, Se voce pressionar qualquer tecla, o 
comando RESTORE 520 na linha 90 in- 
dicara, para a proxima execut;ao do pro- 
grama (a partir da linha 10), que as li- 
nhas DATA lidas pelos comandos 
READ na linha 40 deverao come^ar na 
linha 520, e nao em 500, que e o seu ini- 
cio fi'sico. De acordo com uma nova se- 
qiiencia de caracteres grdficos {que ter- 



mina com as linhas adicionais 590 e 
600), o desenho sera diferente do ante- 
rior. 



O programa a seguir construira um 
cast el o: 

10 PCLEAR 4 

20 PMODE 4,1 

30 PCLS 5 

40 SCREEN 1,1 

50 READ SX.SY 

60 LINE -(SX.Slf) ,PSET 

70 FOR K-1 TO 18 

80 READ X,Y 

90 LINE -CX,Y) .PRESET 

100 NEXT K 

270 GOTO 270 

50 DATA 64,160 

510 DATA 64,60,32,60.48,40,64.6 

0,32.60,32,160,110,160.110.120 

520 DATA 152,120.152,160.228,16 

. 2 26 , 60 , 2 12 , 40 , 196 , 60 , 228 , 60 

530 DATA 196.60,196,160,196,74 

As linhas de 10 a 40 deixam a tela pa- 
ra gral'icos de alta resolugao pronta pa- 
ra descnhar. A linha 270 a mantem 11- 
gada. As linhas 50 e 60 sao um tanto in- 
comuns. As coordenadas do ponto ini- 
cial do casteio sao lidas, e uma linha em 
branco e desenhada em fundo branco 
para o ponto inicial. Algumas vezes, es- 
sa capacidadc para desenhar linhas "in- 
visiveis" torna-se bastante util, pois elas 
podem se juniar as linhas visi'veis em um 
esquema continue de programa(;ao. 

Da linha 70 a 100, e desenhado o con- 
tomo do casteio. No final desia parte do 
programa foram lidos 38 itens de DA- 
TA. Agora acrescenie essas linhas e 
construa algumas muralhas: 

110 FOB K-l TO 33 

120 LET X-X-4 

130 LINE- (X,y) .PRESET 

140 IF Y-74 THEN LET Y-78 ELSE 





LET Y-74 

ISO LINE -(X,Y) .PRESET 

160 NEXT K 

Provavelmente voce esta tentando 
adivinhar o que aconteceu a linha 
READ. Esta e uma ocasiao em que as 
instrugoes DATA e READ nao repre- 
sentam economia de trabalho, pois vo- 
ce precisaria de 66 itens de DATA para 
definir os cantos da muratha. Progra- 
mando desta forma, voce nao precisara 
digitar todas as linhas DATA extras. 

Essas [inhas desenharao as janelas: 

170 FOR K-1 TO 8 

180 BEAD X.lf 

190 LINE fX,Y) - {X+4,Y) .PRESET 

200 LINE (X+2,Y-Z)-(X+2,Y+6) ,PR 

ESET 

210 NEXT K 

540 DATA 46,80,46,120,210,80,21 

0,120.86,90,170,90,80,132,178,1 

32 

Voce nao precisa do DATA para fi- 
nalizar as janelas. Como elas sao todas 
do mesmo tamanho, apeiias urn conjun- 
to de DATA e necessario. Acrescente 
agora essas linhas, rode o programa e 
veja o que acontece: 

220 FOR K-1 TO 4000 

230 NEXT K 

240 CLS: PRINT 633 , "PRESSIONE Q 

UALQUER TECLA PARA CONTINUAH" 

2S0 LET IN$-INKEY$:IF INS-"" TH 

EN GOTO 250 

270 COTO 30 

Quando voce pressionar uma tccla 
qualquer, obtera OD ou a mensagem de 
erro "out of data". A razao disso e que 
o programa chegou ao final da lista DA- 
TA — nao existe mais nenhuma depois 
dele. Mas voce nao precisa digitar todos 
OS DATA novamente. Acresceme so es- 
ta linha, que utiliza a declaracao RES- 
TORE para instruir o computador a re- 
tornar ao inicio da Hsia D.\TA: 

260 RESTORE 
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Desenhar uma casinha nos micros da- 
linha Apple 6 facilimo ^quando utiliza- 
mos DATA. Digiie o programa abaixo: 

10 HGR 

20 HC0L0R=3 

30 FOR I-l TO 4 

40 HEAD XC.YC.LX.LY 

50 HPLOT XC.YC TO XC+LX , YC TO 

XC+LX.YC+LY TO XC.YC+LY TO 

XCYC 
60 NEXT I 
80 FOR I-l TO 3 
90 READ XO,YO,XD,YD 
100 HPLOT XO,yO TO XD,YD 
110 NEXT I 

400 DATA 20.50,160,80 
410 DATA 90,80,20,50 
420 DATA 40.80,30,30 
430 DATA 130,80.30.30 
440 DATA 0.50,200.50 
450 DATA 200,50,100,0 
460 DATA 100,0,0,50 

Os elementos em DATA fornecem as 
coordenadas para as diferentes partes da 
casa. 

A parte principal do programa liga o 
modo de alta resoiuijao grafica (HGR) 
e le OS dados contidos em DATA per in- 
termedio do la^o FOR. ..NEXT nas li- 
nhas 30 a 60 e 80 a 1 10. 

Os dados contidos nas (inhas DATA 
que vao de 400 a 430 contem quatro nii- 
mcros cada e servem para tracar retan- 
gulos de qualquer tamanho e em qual- 
quer posii;ao na tela (rotina HPLOT na 
linha 50), Essa estrategia e vantajosa, 
pois voce pode notar na ilu.stra(;ao que 
a casa tern no minimo quatro retangu- 
los diferentes (a casa, a porta e as duas 
janelas). Assim, os dois primeiros nu- 
meros em DATA sao as coordenadas 
XC e YC do ponto de origem do retan- 
gulo na tela (seu canto superior esquer- 
do). Os dois niimeros seguintes sao: o 
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A casa da p^gina 
anterior foi 
desenhada por um 
Apple II a 
partir de quatro 
linhas DATA. 
Para farer a ponte, 
a Spectrum 
utilizou PLOT 
e DRAW, junto com 
DATA. Ao lado, 
castelo construWo 
em etapas 
pelos TRS-Color. 




ORGANIZE MELHOR OS COMANDOS 
DATA EM UM PROGRAMA 

As linhas DATA tern quase sempre 
uma coisa em comum: qualquer que 
seja a \uforn\agSo que elas transpor- 
tam, leva-se muito tempo para digitS- 
las e faze-las functonar. Tudo correrA 
bem na primeira vez, mas pode ser que 
vocS precise retornar posteriormente a 
um programa e nao consiga entender 
mais nada do que foi colocabo 1^. 

Organizar sistematicamente as li- 
nhas DATA do programs toma apenas 
um pauco mais de tempo, mas pode 
poupar s^culos no resultado final. 

Onde o DATA definir um grSf ico por 
bSocos ou atgo parecido, organize as li- 
nhas do programa para corresponder 
diretamente hs linhas do grSfico. Se o 
DATA segue um formato repetitivo (ta) 
como OS dados em uma lista telefoni- 
ca, por exempio), classifique cada en- 
tf ada exatamente do mesmo modo nas 
(inhas do programa. 



comprimento do lado paralelo ao eixo 
horizontal (LX) e o do lado paralelo ao 
eixo vertical (LY). Assim, o la^o 
FOR. ..NEXT das linhas 30 e 60 le su- 
cessivamente quatro conjunios de dados 
e traga os quatro retangulos. 

Ja o tragado do triangulo exige uma 
tecnica diferente. O lafo que vai das li- 
nhas 80 a no le 4 valores: XO, YD 
(coordenadas de origem de uma reia) e 
XD, YD (coordenadas do seu ponto fi- 
nal), e traca essa reia, na linha 90. 

Uma vez que voce tenha rodado o 
programa, talvez queira repeli-lo mats 
uma vez. Para isso, tente acrescentar as 
linhas seguintes, rode o programa e ve- 
ja o que acontece: 

120 HOME 

130 PRINT 'QUER VER DE NOUO 

(S/N) ?" :GET RS 
140 IF RS="N" THEN TEXT : END 
150 GOTO 10 

Como vimos antes, se voce pressio- 
nar uma tecla qualquer obtera OD ou 
a mensagem de erro "out of data". A 
razao disso ^ que o programa chegou ao 
final da lista DATA, Felizmente, voce 
nao precisa digitar todos os DATA no- 
vamente. Apenas acresceme a linha se- 
guinte, que utiliza a declara^ao RESTO- 
RE para instruir o computador a retor- 
nar ao inicio da lista DATA: 

150 RESTORE :G0T0 10 
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PONHAORD 
SUAS CONTAS 




Assim como os grandes computadores 
comerciais, seu micro pode ser 
usado para fazer caiciilos e manter 
registros financeiros. Veja como 
fazer isso e facilite sua vida. 
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Neste artigo, examinaremos um pro- 
grama de contabilidade domestica, que 
fo! planejado para fornecer respostas a 
pergunias como: onde foi parar o di- 
nheiro do salario? Sao apresentadas ver- 
soes para todos os computadores, com 
exce9ao dos compativeis com o ZX-81 . 

Para atuaiizar a sua contabilidade, 
voce deve "alimenta-la" uma vez por 
mes com seus rendimentos .e despesas. 

O programa cria uma especie de dia- 
rio contendo uma coluna para os rendi- 
mentos e sete cotunas para as despesas 
sob diferentes rubricas. As subdivisoes 
referentes as despesas podem ser modi- 
ficadas, case necessario; para isso, al- 
tere os dizeres (identificafao das 
caiegorias de despesa) na declaraijao 
DATA pertinente, quando digita-las, 
junto com o programa. Mas existem al- 
gumas limitaijoes: a coluna de rendimen- 
tos deve aparecer sempre em ultimo 
lugar; ao mesmo tempo, e necessario 
que haja um total de oito colunas. 

O programa deve ser digitado em 
duas sefoes: a primeira, com o proprio 
programa; e a segunda, com todas as in- 
forma^oes com as quais voce o alimen- 
tou ate momento da sua entrada. Isto 
significa que voce precisard de dois no- 
mes para os programas. 

Para gravar corretamente o progra- 
ma em fiia, siga o procedimento normal 
de sua maquina (comando SAVE ou 
CSAVE). Para recarregar o programa. 
siga novamente o procedimento usual 
para carregar jogos gravados em fitas. 

Quando voce rodar o programa, o 
menu principal Ihe dara sete op?6es: 

1 - Entrar dados 

2 - Ver dados 

3 - Gravar em Fita 

4 - Carregar da fita 

5 - Imprimir 

6 - Alterar um dado 

7 - Encerrar o programa 

Para fazer um langamento, pressio- 
ne a tecla 1 quando o menu principal 
aparecer. Nao acione ainda <EN- 
TER> ou < RETURN > , A cada lan- 
(jamento, o computador pedira detalhes 
como data, descrigao, valor e categoria, 

Digite a informagao na ordem dada, 
pressionando < ENTER > ou < RE- 
TURN > apos cada dado do lan?amen- 
to, Espere que o computador pergunte 
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por um novo dado e pressione < EN- 
TER > ou < RETURN >, trazendode 
volta o menu. 

Para examinar um langamento, pres- 
sione a tecla 2 quando o menu princi- 
pal aparecer. Naotecle < ENTER > ou 
< RETURN >, O computador exibiri 
um I'ndice mostrando as varias catego- 
rias. Para selecionar uma delas digite o 
niimero apropriado (nao tecle < EN- 
TER > ou < RETURN > , e micro lis- 
tara OS lan?amentos que existem para 
aquela categoria. 

Na versao para o Spectrum, a tela 



mostrara a questao "Continua?" se ho- 
ver espapo insuficiente para exibir todos 
OS lanparaentosde umavez. Neste case, 
nao pressione o N nesse ponlo; prossi- 
ga ate o final da listagem. 

Quando termiriar, acione < EN- 
TER > ou < RETURN > evoiteao me- 
nu principal. 



COMO MODIFICAR UM LANpAMENTO 



Quando voce teclar o 6 para a opgao 
de alterar um lan<pamcnto, o computa- 
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DIGITE E ARMAZENE 



PROGRAMA 

AS OPCOES DO MENU 



CQMO ENTRAR LAN C AMENTOS 
NOS REGISTROS 



ATUALIZE OS REGISTROS 



VERIFICACAO DO BALANCO 



IMPRESSAO DOS RESULTADOS 

ARMAZENE SUAS FINAN CAS 

EM FITA 




dor mostrara uma lista com todos os 
lan^amentos ja efetuados. 

Voce pode se movimenrar para tras 
e para a frente dentro da lista, utilizan- 
do OS sinais de prontidao que aparece- 
rao na tela. O computador tambetti dir^ 
como editar (modificar) um lan(;amen- 
to. Uma vez que voce tenha digitado 
< ENTER > ou < RETURN >, ap6s 
fazer a a!tera?ao, o computador trara de 
voltao menu principal. Para uma segun- 
da alteragao, voce deve selecionar a op- 
<pao 6 novamente. O comando para a 
optao de impressao funciona de forma 



tao simples quanto um interrupter de 
iuz — um liga/desliga acionado quan- 
do se tecla a op(;ao 5 (tambem sem 
< ENTER > ou < RETURN > ) do me- 
nu principal. O computador petfira que 
voce tecle S, se quiser usar a impresso- 
ra, ou N se nao quiser. Se voce pressio- 
nar a tecla S, o menu principal voltara 
automaticamente a tela e, a partir desse 
momento, tudo o que normalmente apa- 
receria na tela, usando-se a op^ao 2, 
passara a ser mandado para a impres- 
sora. Se quiser interromper essa opgao, 
pressione a tecla 5 novamente e respon- 
da N. 

Se voce nao tiver uma impressora co- 
nectada ao computador, tome culdado 
para nao pressionar a tecla S. O Spec- 
trum ira ignorar as instrucoes neste ca- 
se, mas em qualquer um dos outros tres 
computadores voce podera perder todas 
as informagdes jd inseridas. 

D 

10 PMODE 0:PCLEAR Ir CLEAR 10000 

20" DIH TE$(200) ,AM(2O0} .DAS(ZO0 

) ,CT$<e) ,CA(200) 

30 FOR N-1 TO e:READ CT$(N):NEX 

T 

40 DATA MANUTENCAO DA CASA.LAZE 

H ,ALUGUEL,VESTUARIO,AUTOM0UEL. 

FEBI AS , OUTHOS , RENDA 

SO Ul$='''llt#tt«tl,'';U2$-''»ttttl 

60 CLS4: PRINT #6 , "MENU PRINCIP 

At'liPRINT 870, "1- ENTRAR DADOS 

"j:PHINT §134, "2- VEH ENTRA 

DAS ";: PRINT ei98."3- GRAVAR 

EM FITA " I 
70 PRINT §262, "4- CARHEGAH 

"ir'PHINT 6326, '5- IMPBIHIR 
";:PHINT «390,"6- MUDAR E 
NTRADA ";:PRINT #454. "7- SAID 
A "; 

eO AS-INKEYSrIF AS<"1'' OR AS>"7 
" THEN 80 

90 ON UAHA$3 GOSUB 1000,2000,3 
000 , 4000 , 5000 ,6000 , 7000 
100 GOTO 60 

1000 CIS: IF NtJ>200 THEN PRINT 
§264, "MEMORIA LOTADA ! " : PLAY "T 
lOABCDEFGPlPl" :RETURN 
1010 GOSUB 1160 

1020 GOSUB 1250: INPUT-DATA 'sDA 
S(NU) 

1030 IF DASiNU)-"' THEN RETURN 
1040 IF LEN(DAS(NU))>8 THEN 102 

1050 PRINT SL.DASCNU) ; 



1060 GOSUB 1250:LINEINPUT"ITEM 

?';TE$(NU) :IF tEN (TE$ (Nt;) ) >25 T 

HEN 1060 

1070 A$-LEFTS(TES(NU) .9) :PRINT§ 

L+14-LEN(AS)/2,A5: 

1080 GOSUB 1250:INPUT"QUANTIA " 

iA 

1090 IF A>9999999 OB A<0 THEN 1 

060 

1100 PRINT eL+19. USING U2SjA;:A 

M(NU) -A 

1110 GOSUB 1250:INPUT"CATEGORIA 

";CA$ 
1120 GOSUB lieO:IF F-0 THEN 111 


1130 CA(NU)-NM: PRINT «L+29, LEF 
T5tCT$(CA(NU)) ,3} ; 
114 IF NM08 THEN CT-GT+A 
1150 NU-NU+1: L-L+32:1F L-448 T 
HEN 1000 ELSE 1020 
1160 L-64: PRINT 82, "DATA" TAB ( 
10) 'ITEM' TAB (19) 'QUANTIA' TAB 
(29)"CAT': 
1170 RETURN 

1180 IF VAL(CAS)<>0 THEN 1230 
1190 F-0: FOR N-1 TO S 
1200 IF CAS-LEFTS(CTSi(N) ,LEN(CA 
S)) THEN F-F+1:NM-N 
1210 NEXT: IF F>1 THEN F-0 
1220 RETURN 

1230 IF UAL(CA$)>S THEN F-0:RET 
URN 

1240 NM-UAL (CAS) :F-1: RETURN 
1250 PRINT 8448,' ": PRINT §449. 
i : RETURN 

2000 CLS3:FOa N-1 TO 6 
2010 PRINT e69+N*32,N;MID$("- " 
+CT$(N)+STRINGS(12.- 'J,!, 20); 
2020 NEXT 

2030 TT-0: PRINT §449, 'QUE GATE 
GORIA ?-; 

2040 A$-INKEYS:IF A$<'1" OB AS> 
"8" THEN 2040 
2050 NK-VAL (AS) 

2060 IF PT-1 THEN PRINT»'2 ,CHRS 
(13) :PRINT#-2,TAB(21-LEN(CTS(NM 
) )/2) ;CT$(NM) :PRINT#-2," DATA- 
TAB ( 20) " ITEM'TAB (39) 'CUANTIA- 
2070 GOSUB 2280 
2080 FOR NN-0 TO NU 
2090 IF CA(NN)<>N« THEN 2150 
2106 IF PT-1 THEN PRINT#-2 , USIN 
GFSjDAS{NN) ;TES(NN) :AM(NN) 
2110 PRINT §L,DA$(NN) i lAS-LEFTS 
(TES(NN) ,13) : PRINT eL+16-LEN(A3 
)/2,A$; :PRINT §L+23,USING U2S;A 
M(NN) ; :TT-TT+AM{NN) 
2120 L-L+32:IF (L-448 AND NM06 
) OR (L-352 AND NM-8) THEN PRIN 
T §465.'C0NT ?";ELSE GOTO 2150 
2130 A$-rNKEY$:IF AS""" THEN 21 
30 
2140 GOSUB 2280 
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2150 NEXT; IF PT-1 THEN PRINT!- 

2,CHHS(13): IF NM08 THEN PRINT 

|-2,TAB(28) ; : PRINT#-2, U3ING"T0T 

AL -"+U1S;TT 

2160 PRINT #463, USING "TOTAL "" 

+U1S;TT: 

2170 IF NH08 THEN 2250 

2ieO IF PT-0 THEN 2220 

2190 PHINT|-2,TAB (21) ; :PHINT|-2 

, USING -RENDA TOTAL -"+U1S;TT 

2200 PRINT |-2.TAB(16) ; :PRINT|- 

2,US?NG"DESPESA TOTAL -"+013 ;GT 

:PRINT|-2,TAB(35) " 

2210 PEINT|-2,TAB (26) : :PRINT|-2 

.USINCBALANCO -"+U1S:TT: 

2220 PRINT §392. USING "RENDA TO 

TAL -'+U1S;TT; 

2230 PRINT e4l9,USING "DESPESA 

TOTAL -'+U1S;GT; 

2240 PRINT §461,USING''BALANC0 = 

"+UilS;TT-GT ; 

22S0 AS"INKEYS:IF AS="~ THEN 22 

50 

2260 IF AS<>CHRS(13) THEN 2000 

2270 RETURN 

2280 L»64:CLS NM: PRINT e(33-LEN 

(CTS<NM)))/2,CTS{NM) ; 

2290 PRINT 634, "DATA- :: PRINT §4 

5, "ITEM" ;: PRINT #56 , "QUANTIA" ; 

2 300 FOR N-32 TO 416 STEP 3 2 

2310 POKE N+1032.122+NM*16:POKE 

N+1046,117-t-16*NH 
2320 NEXT: RETURN 

3000 CLSiMOTOHON: PRINT §64 , " PCS 
ICIONE GRAVADOR E PRESSIONE<E 
NTEH>* 

3010 AS-INKElfS:IF AS-" THEN 30 
10 

3020 MOTOHOFF: PRINT e65,"PRESSI 
ONE 'REC NO GRAVADOR E TEC 
LE <ENTER>" 
138 3030 AS-INKEY$:IF AS-"" THEN 30 



30 

3040 CLS: PRINT 665 , ; ; INPUT"NOM 

E DO ARQUiyO - ;DA$ 

3050 OPEN "O", 1-1, DAS 

3060 PRINT 1-1. NU 

3070 FOR N-0 TO NU-1 

308(1 PRINT J-LDAStN) ,TES(N) ,AM 

CN) .CA(N) 

3090 NEXT: CLOSEf -1 rHETURN 

4000 CLS: PRINT §65 ,;: INPUT-MOM 

E DO AR(JUIVO"iDA$ 

4010 MOTOHON: PRINT e64,"P0SICI0 

NE O GRAUADOH E TECLE < ENTER 

>- 

4020 AS-rNKEYS:lF AS-"" THEN 40 

20 

4030 MOTOHOFF :GT-0: OPEN "I*,|-l 

,DA3 

4040 PRINT ei29,"ACHEI " i DA$ 

4050 INPUT t-l,NU 

4060 FOR N=0 TO NU-1 

4070 INPUT #-1 ,DAS{N) .TE${N) ,AM 

(N) ,CA(N) 

4080 IF CA{N)<>6 THEN GT-GT+AM( 

N) 

4090 NEXT; CLOSE |-1: RETURN 

5000 CLS: PRINT §65, 'VOCE QUEH 

IMPRIMIR ? (S/N) " ; 
5010 AS-INKEYS:IF A3<>"S" AND A 
S<>"N" THEN 5010 
S020 PRINT "OK": IF AS-'N" THEN 
PT-0 : RETURN 

5030 rs-"i It 

t "+U2S:PT='l rRETU 
RN 

6000 IF NU-0 THEN RETURN 
6010 CLS: PRINT" DATA'TAB ( 1 1> " 
ITEM''TAB(19} "QUANTIA"TAB ( 29) "CA 

Fnll- 

6020 PRINT §417, "PRESSIONE <":C 

HH$<94);''> PARA PROSSEGUIH 

OU <";CHRS(95) ;"> PARA RETORNAR 



OU" 
6030 PRINT §461, 'A BARRA DE ESP 
ACOS PARA EDITAR"; :M=0:GOT0 608 


6035 KKS-INKEYS:IFKKS-""THEN603 
5 

6040 IF KKS-CHHStS) AND M>0 THE 
N M'M-1 :GOT0 6060 
6050 IF KKS-CHRS(94) AND M<NU-1 

THEN «-M+l:GOTO 6080 
6060 IF KKS'=CHRS ( 32) THEN 6100 
6070 GOTO 6035 
6080 PRINTe54 ,USlNG"t t t 

Ittttttit, * l":DA$(M): 
LEFTS (TES (M) ,8) ;AM(M) ; LEFTS (CTS 
(CA(M) ) ,3) 
6090 GOTO 6035 

6100 IF CAlM)<>8 THEN GT-GT-AM( 
M) 

6110 INPUT"NOVA DATA ";DS:IF DS 
="" THEN 6130 

6120 IF LEN(DS)?e THEN 6110 ELS 
E DA$(M)-D3 

6130 INPUT "NOVO ITEM "iD$:lF D 
S-'" THEN 6150 
6140 TES (M) "DS 
6150 INPUT "NOVA QUANTIA ":A:IF 

A-0 THEN 6170 
6160 IF A<0 OH A>9999999 THEN 6 
ISO ELSE AM{M)-A 

6170 INPUT "NOVA CATEGOHIA " ; CA 
S: IF CAS""" THEN 6200 
6180 GOSUB 1180:IF F-0 THEN 617 


6190 CA(M)-!m 

620 IF CA(M)<>8 THEN GT-GT+AM( 
M) 

6210 RETURN 

7000 CLS: PRINT §69. "VOCE TEM C 
ERTEZA tS/N) ?; 

7010 A$-INKEY$:IF ASO'S" AND A 
S<>"N" THEN 701O 
7020 IF AS-"N" THEN RETURN 



50 LET iiin=200: IF PEEK 23733- 

127 THEN LET mn-lOO 
100 DIM CS(8.16): DIM a (Bin) : 
DIM a$(mn,23) 
110 LET U»0: LET v-1 
120 FOR n=v TO 8: READ CS (n) : 
NEXT n 

130 POKE 23658,8 
140 LET kS-".CO": FOR n-v TO 7 
145 LET k$-kS+CHR$ 8: NEXT n 
190 LET p-2: LET tt-U: LET cr- 
u 

200 CLS : PRINT BRIGHT V; 
PAPER 2; INK 6 ; AT 2.1;" M E N 
U PRINCIPAL" 
210 PRINT BRIGHT V; PAPER 7; 
AT 5,4;" 1- ENTRAR REGISTRO "; 
AT 7,4; " 2- VER REGISTHOS "; 
AT 9,4;" 3- GRAVAR EM FITA " ; 
AT 11,4;" 4- CAKREGAR 
;AT 13.4;" 5- IMPRIMIR 
";AT 15,4;" 6- MUDAE REGISTRO 

";AT 17,4;" 7- SAIDA 

220 PRINT INK 3; FLASH v; 
BRIGHT v;AT 20,4;" - SELECIONE 
OPCAO - " 



230 IF INKEYS-"" THEN GOTO 

230 
240 LET zS-INKEYS: IF zS<"l" 
OR zS>"7" THEN GOTO 230 
250 CLS : CjOSUB 1000*VAL 2$ 
260 GOTO 200 
1000 LET C-u 

1005 LET c-C+v: IF c-mn+v THEN 
RETURN 

1006 IF aS(c,v)-" " THEN GOTO 
1010 

1007 GOTO 1005 

1010 PRINT AT U.Ui BRIGHT V; PA 
PER Z; INK ?;" DATA ITEM 

QUANT I A CAT " 
1015 IF c-mn+v THEN RETURN 
1020 INPUT "Digite a data"; LIN 
E aS(c,2 TO 9) : IF aS(c.2)-" " 
THEN RETURN 

1030 PRINT TAB u;aS[c,2 TO 9); 
1040 INPUT "Digite o item "; LI 
NE a5(c,10 TO 23): IF aS(c,10)- 
" " THEN 'goto 1040 
1050 PRINT TAB 9:aStc,10 TO 21} 

1060 INPUT "Quantia '-.aic): IF 
a(c)=u THEN GOTO 1060 
1070 LET vv-a(c3«100: LET vS-ST 
BS vv: PRINT TAB 27-LEN vS;a(C) 

1080 INPUT "Categoria " ; LINE f 
$; IF f$-"" THEN GOTO 1080 
1090 FOR n-v TO 8: IF f$-c$(n,v 

TO LEN fS) THEN GOTO 1130 
1100 NEXT n: GOTO 1080 
1130 IF n-8 THEN LET cr-cr+atc 

) 

1140 IF n<>8 THEN LET tt-tt+a( 

C) 

1150 PRINT TAB Z9iC${n,v tO 3) 
1160 LET a$Cc.v)-CHRS (48+n) 
1200 LET c-c+v: GOTO 1015 
2000 FOR n-v TO 8: PRINT PAPER 
v; INK 7; AT n*2,4;" "in;"- "iC 
$(n) : NEXT n 

2010 PRINT FLASH V; INK 2 ; AT 1 
9.3;" Selecione categoriad a 8 

) ' 

2020 IF IHKEX$-"" THEN GOTO 20 

20 

2030 LIT 2S-INKEY$: IF Z$<"1'' 

R ZS>"8" THEN GOTO 2020 

2040 LET t-u: LET c-U 

2050 CLS : PRINT tPf PAPER 6; B 

RIGHT v;TAB lO;c$(UAL z$) i TAB 3 

1;" " 

2055 LET c-c+V: IF c'-mn THEN G 

OTO 250 

2060 IF aSCcv)-" " THEN GOTO 

2500 

2070 IF a$(G,V)<>Z$ THEN GOTO 

2055 

2080 PRINT |p;a$(c,2 TO 9); TAB 

10;a$<c.lO TO 23) : 

2090 LET am-a (c)*100- LET nS-ST 

RS am: PRINT tp;TAB 29;kS;TAB 3 

1-LEN nS;a(c> 

2100 LET t-t+a(c) 

2110 GOTO 2055 

2500 PRINT iPiTAB 25;" ": 

LET tx-t*100: LET nS-STB$ tx 
2505 PRINT tP;TAB 12; 'TOTAL- "; 
TAB 29;kS;TAB 31-LEN nS;t 



2510 IF zS<>"8" THEN GOTO 2590 
2520 LET tz-tt*100: LET nS-STHS 

tz: PRINT '♦p;TAB 4:"DESPESA T 
OTAL- ";TAB 29;k$;TAB 31-LEN nS 
;tt 

2530 LET ba-(t-tt)«100; LET nS- 
STRS ba: PRINT 'iPsTAB 10; "BALA 
NCO- ";TAB 29;kS;TAB 31-LEN nS ; 
ba/100 

2590 PRINT PAPER 2; INK 7' "Pre 
saione qualquer tecla para co 
nt inuar " 

2600 PAUSE U: IF PEEK 23560-13 
THEN RETURN 
2610 CLS : GOTO 2000 
3000 GOSUB 8000: IF re=v THEN 
RETURN 

3010 PRINT PAPER 6;AT 10, u;" D 
igite o nome do arquivo data " 
3015 INPUT LINE w$: IF LEN WS> 
10 OR LEN WS<V THEN GOTO JOIO 
3020 CLS : SAVE wS DATA d() : SA 
VE W3 DATA a$ ( ) : RETURN 
4000 GOSUB 8000: IF re-v THEN 
RETURN 

4010 PRINT BRIGHT vjAT 10,u;"D 
igite o nome doa dados a aerem 
carregadoa"; INPUT LINE wS. IF 

LEN wS>iO THEN GOTO 4010 
4020 PRINT PAPER 3; INK 7 ; AT 1 
0,u;" Press lone PLA 

y 

4030 LOAD wS DATA a{): LOAD wS 
DATA aSO 

4040 LET cr-u: LET tt-u: FOR n- 
V TO mn: IF aS (n . v) -"8" THEN L 
ET cr-cr+a(n) 

4050 IF aS(n,l}<>"8" THEN LET 
tt=tt+a (n) 
4060 NEXT n: RETURN 
5000 PRINT BRIGHT V;AT 10, U;" 
Voce quer imprimir (S/N)? " 
5010 PAUSE u: IF INKEYS^"" THEN 
GOTO 5010 



5020 LET 2$-INKEY$ 

5030 IF zS-"n" THEN LET p-2: R 

ETURN 

5040 IF 2S-"3" THEN LET p-3; R 

ETURN 

5050 GOTO 5010 

6000 LET c-v: IF a(c)-u THEN R 

ETURN 

6010 PRINT AT u.Uj BRIGHT v; PA 

PER (VAL a$(c,v)>-v; INK 9;" Nu 

raero ";c,cS(VAL aStc.v)) 

5015 PRINT PAPER 2; INK 7 ; ' '"D 

ATA ITEM QUANTIA 

": PRINT 'aS(c.2 TO 9);TAB 10;a 

S (c, 10 TO 23) ; 

6020 LET am-a (c) *100: LET nS=ST 

R5 am: PRINT TAB 29;k$;TAB 31'L 

EN nS ia (c) 

6030 PRINT PAPER 3: INK 7;AT ;; 

Q,u\" A - Proaseque Q - Retot 

na EDIT para alterdr iv 

gistro " 

6040 PAUSE u 

6050 IF INKEYS-"q" ANP c. v THKN 

LET c-c-v: GOTO 6010 
6060 IF INKE¥S-"a" AND cOmn TH 
EN LET C=C+v 

6070 IF afc)-u THEN LET c-=r-y 
6080 IF PEEK 23560=7 THEN GOTO 

6100 
6O90 GOTO 6010 

6100 INPUT BRIGHT v;"Digitp a 
nova data "; LINE aS (c. ? TO '^) . 

IF aS(c,2)-" " THEN GOTO 6100 
6110 PRINT AT 5,u:aS(c,2 TO 9) 
6120 INPUT BRIGHT v;"Digite n 
novo item "; LINE aS(r.lO TO 23 
): IF a$(c,10)-" " THEN GOTO 6 
120 

6130 PRINT AT 5,10;aS{c.l0 TO 2 
3) 

6135 IF aS(c.v)-"8" THEN LET c 
r=cr-aCc) 

6136 IF aSCcvX^-B" THEN. LET 




tt-tt-a{c) 

6140 INPUT BRIGHT v;"Dlglte no 

va quantia "safe): IF a [c) -u TH 

EN GOTO 6140 

6150 LET airt-a(c)*100: LET n$-ST 

R$ am: PRINIT AT 5,29;kS:TAB 31- 

LEN nS;a fc) 

6160 INPUT BRIGHT v;"Digite a 

nova categoria "; LINE f 6 : IF f 

S-"" THEN GOTO 6160 

6170 FOR n=v TO 8: IF fS-c$(n,v 

TO LEN fS) THEN GOTO 6190 
6180 NEXT n: GOTO 6160 
6190 LET aSCc,v)-CHHS (48+ri} 
6200 IF n-8 THEN LET cr-cr+a (c 
) 

6210 ir n<8 THEN LET tt-tt+a(C 
) 

6220 RETURN 

7000 GOSUB 8000; IF re-v THEN 
RETURN 

7010 HAND USR u 

8000 PRINT PAPER 4 ; AT 10.9;" V 
oce tetti certeza? " 
8010 PAUSE u: LET re-u: IF INKE 
Y$<>"S" THEN LET re-V 
8020 RETURN 

9000 DATA "MANUTENCAO CASA","LA 
2ER" ."ALUGUEL £ TAXAS" , "VESTUAR 
10" ."AUTOMOVEL" , "FEHIAS" , "OUTRO 
S" ."HENDA" 



m 



10 COLOR 15,4,4:KEYOFF:MOTOHOFF 

:CLEAR5000 

20 DIMTE$(200) ,AMC200) .DAS{200) 

,CTS(8) ,CA(200) 

30 F0BN-1T08:READCT3(N) :NEXT 

40 DATA MANUTENCAO DA CASA.LAZE 

H.ALUCUeiS E TAXAS, ROUPAS.AUTOM 

6VEL , FERIAS .MISCELANEA.RENDAS 

50 UlS-"$Sltt#l#tll. '■:U2S'"#*## 

MM." 



60 CLE; LOCATE?, 2 :PRINT"M E N U 

PRINCIPA L":LOCATE10,6 
:PRINT"1:- ENTRAR DADOS" ; LOCATE 
10,8;PRINT"2:- VER DADOS" :LOCAT 
E10,10:PBINT"3:- GRAVAR NA FITA 

tf 

70 LOCATE10,12:PHINT"4 :- CARHEG 
AR DA FITA" ;LOCATE10, 14; PRINT'S 
:- OPCRO DE IMPRESSAO" : LOCATEIO 
, 16: PRINT"6:- ALTEHAR DADOS" :L0 
CATE10,18:PHINT"7 ;- FIM DE PHOG 
RAMA" 

80 LOCATE10,22:PRINT"-ESCOLHA U 
MA OPCAO-" 

90 AS-INKEY$:IFA$<'1"0RA$>"7"TH 
EN90 

100 ONVALCA$)GOSUB1000, 2000, 300 
0,4000,5000,6000,7000 
110 COLOR 15,4,4:GOTO60 
lOOO CLS:IFNU>200THENLOCATE10, 1 
5; PRINT''MEMORIA CHEIA ! " : BEEP 
lOlO GOSU81160 

1020 GOSUB1250:INPUT"DATA " ; DAS 
(NU) 

1030 IFDA$(NU)-""THENRETURN 
1040 IFLEN{DAS (NU) }>8TKEN1020 
1050 LOCATEO.L; PHINTDAS (NU) 
1060 GOSUB1250;LINEINPUT"ITEM 7 
":TE${NU3 ; IFLEN (TES (NU) ) >25THEN 
1060 

1070 A$-LEFTS (TE5 (NU) , 15) : LOCAT 
E17-LEN(AS) /2,L;PRINTA$ 
1080 GOSUB1250;INPUT"QUANTIA " ; 
A 

1090 IFA>9999999|ORA<0THEN10a0 
1100 LOCATE2S,L:PRINTUSINGU2S;A 
:AM(NU)-A 

1110 GOSUB1250:INP(JT"CATEGORIA 
'iCAS 

1120 GOSUB1180;IFF-0THEN1110 
1130 CA(NU)-NM:LOCATE36,LrPRINT 
LEFTS (CT$(CA(NU)) ,3) 
1140 IFNH08THENGT-GT+A 
1150 NU-NU+1:L-L+1:IFL-19THEN10 
OOELSE1020 




1160 L-2: PRINT" data";TAB(14) ; 
"Item"; TAB (26 J : "quant la" ; TAB (36 
) "cat" ; 
1170 RETURN 

1180 IFVAL(CAS)<>0THEN1230 
1190 F-0:FORN-lTO8 
120O IFCAS-LEFTS(CTS(N) ,LEN(CA$ 
) )THENF-F+1:NM-N 
1210 NEXT:IFF>lTHENF-0 
12 20 RETURN 

1230 IFVAL(CAS)>8THENF-0;BETUBN 
1240 NM-VAL (CAS) :F-1: RETURN 
1250 LOCATE0.20:PRINTSPACES C79) 
; : LOCATED, 20: RETURN 
2000 CLE ; FORM*- 1 TO 6 
2010 LOCATE10,2*N+3:PHINTN; " :- 
";CTS(N) 
2020 NEXT 
2030 TT-0; LOCATE15,23 :PRINT"Qiia 

1 categoria? "; 

2 040 AS-1NKEYS:IFAS<"1"0BAS>"B" 
THEN2040 

2050 NM-VAL (AS) 

2060 IFPT-1THENLPHINTTAB(40-LEN 
(CTS(NM))/2) :CTS(N«) :LPHINTTAB( 
10)" DATA";TAB(28) i" ITEM"; TAB ( 
51) ;"QUANTIA" 
2070 GOSUB2280 
2080 FORNN-OTONU 
2O90 IFCAtNN)<>NMTHEN21S0 
2100 IF PT-1 THEN LPHINTTAB (10 ) 
;DAS(NN) ;TAB(22) :TES (NN) : : LPRIN 
TTAB ( 50) USINGU2$ i AM (NN) 
2110 LOCATE0,L:PHINTDAS(NN) ; :AS 
-LEFT$CTES{NN) ,20) : LOCATEIO : PRI 
NTAS;:LOCATE 30 : PRINTUSINGU2S ; A 
M(NN) ; ;TT-TT+AM(NN) 
2120 L-L+1:IF (L-21ANDNM08) OR 
(L-19ANDNM"e) THEN LOCATE14,22 
;PRINT''3croll? ";;ELSE GOTO 215 


2130 AS-INKEYS; IFAS-""THEN2130 
2140 GOSUB22e0 

2150 NEXT:IFPT-1ANDNM<>8THENLPR 
INT : LPRINT : LPRINTTAB (38) ; USING" 
TOTAL -> '+U1S;TT 
2160 LOCATE18,22:PRINTUSING"tot 
al ->"+UlS;TT 
2170 IFNMO8THEN2250 
2160 1FPT-OTHEN2220 
2190 LPRINT: LPRINT: LPRINTTAB (40 
) ;USING"RENDA TOTAL ->"+UlS;TT 
2200 LPRINTTAB (36) : USING"DESP£S 
AS TOTAIS ->"+UlS;GT:LPRINTTAfl! 
54) " " 

2210 LPRINTTAB (44) ;USING"BALANC 

->'+Ul$;TT-GT 

2220 LOCATE13,20:PHlNTUSING"Ren 

da total ->"+UlS:TT 

2230 L0CATE9.21:PRINTUSING"De3P 

egas totaig ->"+UlS;GT 

2240 L0CATE17, 22:PRINTUSING"Bal 

anco ->''+UlS;TT-GT; 

2250 AS-INKEY$:IFA$-""THEN2250 

2260 IFA$<>CHRS(13)THEN2000 

2270 RETURN 

2280 L-3;CLS:C0L0R 15,NM+2;LOCA 

TE20-LEN (CTS (MM) } /2 : PRINTCT$ (NM 

) 

2290 PRINT" data":TAB(18)"rtem 

" i TAB (32) "quant ia"i 

2300 FORN-3TO20 

2310 UPOKEN*40+10.22:VPOKEN«40+ 



30,22 

2320 NEXT: RETURN 

3000 CLS ; MOTOR :LOCATEO, 10 : PRINT 

"Poaicione a fita e preasione < 

BETUaN>" 

3010 IFINKEYS-""T9EN3010 

3020 MOTOR rPRlNT"Tecle <REC/PLA 

y> e pressione <RETURN>" 

3030 IFINKEyS-""THEN3030 

3040 LOCATES, 15: INPUT"Noffle do a 

rquiVO ";DAS:ARS-"CAS: "+DAS 

30SO OPEN ARS FOR OUTPUT ASti 

3060 PRINTIl.NU 

3070 FOBN-OTONU-1 

3080 PRINTIl ,DA$ (N) ;" . ";TES (N) ; 

-.■•;AM{N) ,CA(N) 

3090 NEXT: CLOSEIl : RETURN 

4000 CLS: LOCATES, 10; INPUT"Noroe 

do arquivo " ;DA$ ; AR$-''CAS : "+DAS 

4010 HOTOR: LOCATE0,12 : PRlNT"Po9 

icione a fita e tecle <RETURN>" 

4020 IFINKEy$-'"THEN4020 

4030 MOTOR :LOCATE0, 14 :PHlNT"Pre 

asione a tecla <PLAY> e <RETURN 

>" 

4040 IFINKEYS-'"THEN4040 

4050 MOTOR :GT-0: OPEN ARS FOR IN 

PUT ASH 

4060 LOCATES, 18 ; PRINT'Achei ";D 

AS 

4070 INPUTtl.NU 

4080 FOHN-OTONU-1 

4090 INPUTil,DASCN) ,TES(N) ,AM(N 

) .CA(N) 

4100 IFCA(N)<>8THENGT-GT+AM(N5 

4110 NEXT: CLOSEIl: RETURN 

5000 CLS: LOCATEIO . 10 ; PHINT"Impr 

esaora: " 

&010 LOCATElb. 12 : PRINT" [ L ]igada 

m 

5020 LOCATE 15 . 13 : PRINT" ( D leal i g 

ada" 

5030 AS-INKEYS:IFA$-'""THEN5030 

5040 IFAS-''L"THENPT-1 : RETURN 

5050 IFAS-"D"THENPT-OELSi;5030 

5060 RETURN 

6000 IFNU-OTHENRETURN 

6010 CLS: PRINT" data" : TAB (14) ; 

"Item"; TAB (26) ; "quant la" iTAB(Jf. 

) ;"cat" 

6020 LOCATED. 20: PRlNT"Pre33ione 
[>■>) para avancar" 

6030 LOCATEO , 21 ; PRINT"Pr essione 
[<=) para retroceder " ; PRINT"Ou 
a barra de eapagos para editar 

" :GOTO6080 

6040 AS-INKEY3:IFA$-""THEN6040 

6050 IFA3C(A$) -29ANDM>0THENM-M- 

1 ;GOTO6080 

6060 IFASC(AS)-28ANDM<NU-1THENM 

-M+1 :GOTO60e0 

6070 1FASC{AS)-32THEN6100ELSE60 

40 

6080 LOCATEO. 3 ; PRINTDAS (H) ; TAB ( 

10) ; LEFTS (TE5(M) ,15) ; :PRINTTA8 t 

26) ;USINGU2$;AMCM) i : PRINTTAB [ Jb 

) ;LErTS(CTS{CA(M) ) ,3) 

6090 GOTO 6040 

6100 IFCA(M) <>8THENGT-GT-A«{M) 

6110 DS-"" :PRINT:INPUT"Data "iD 

$: IFDS=""THEN6130 

6120 1FLEN(D$)>8THEN6110EI,SEDAS 

<M)-DS 




6130 DS-"" :PHINT:INPtJT"Ite(n ";D 

S:IFDS-""THEN6150 

6140 IFLEN(DS)>25THEN6130ELSETE 

S (M) -DS 

6150 PRINT: INPUT"Quantia ";A;1F 

A=OTHEN6170 

6160 IFA<OORA>9999999ITHEN6150E 

LSEAMiM)-A 

6170 CAS-"" ; PRINT;INPUT"Categor 

la " ;CA$:IFCAS-"''THEN6200 

6180 GOSUBllSO: IFF-0THEN6170 

6190 CA(M)=NM 

6200 IFCA(M)<>8THENGT-GT+AMCM) 

6Z10 RETURN 

7000 CLS:LOCATElO,lB:PRINT"Fim 

do prograraa?" 

7010 A$-INKEYS: 1FAS-""THEN 7010 

7020 IFA$<>"S"THENRETUBN 



: ^;tab N 
;KS 



2+4: PR 



PRINT 



70 HTAB 10 

INT Ni " :- " 

80 NEXT 

90 VTAB 2 3 

PCAO -> " ; : 

100 IF A$ < "1 

EH 90 

110 PRINT AS:: NORMAL : HOME 

120 ON VAL (AS) GOSUB 1000,20 

00,30 00,4000,5000,6000,7000 

130 GOTO 50 

1000 IF NU > 200 THEN 

: HTAB 10: PRINT CHRS 

ORIA CHEIA!"; CHRS (7) 



: HTAB 20: 
GET AS 

OR AS > "7" TH 



VTAB 15 

(7) ;"MEH 

FOR N - 



a] 



10 REM ONERR GOTO 8000 

20 DIM TES(200) ,QT(200) ,DT$(20 

0) .CTS{8) ,CT(200) 

25 FOR N - 1 TO 7: READ KS : NE 

XT 

30 FOR N - 1 TO 8: READ CTS (N) 

: NEXT 

35 DATA ENTRAR DADOS , UEH DADO 

S,GRAVAR EM DISCO. CABREGAR DO D 

ISCCIMPRIMIR.ALTERAR UM DADO,F 

IM DE PROGRAMA 

40 DATA MANUTENCAO DA CASA.L 

AZER,ALUGUEIS E TAXAS , ROUPAS ,AU 

TOMOUEL , FERIAS , MISCELANEA , RENDA 

S 

50 HOME : RESTORE : INVERSE : 

VTAB 2: HTAB 7: PRINT 'MENU 

PRINCIPAL" 
60 FOR N - 1 TO 7: BEAD KS 



1 TO 1000: NEXT : RETURN 
1010 GOSUB 1160 

1020 GOSUB 1250: INPUT "DATA ( 
DD/MM/AA) ; ";DT$(NU) 
1030 IF DT${NU) - " THEN RET 
URN 

1040 IF LEN (DTS(NU)) > 8 THE 
N 1020 

1050 VTAB L: PRINT DTS(NU) 
1060 GOSUB 1250: INPUT "ITEM: 
":TES(NU): IF LEN (TES(NU)) > 
25 THEN 1060 

1070 AS - LEFTS (TES tHU> . 15) : 
VTAB L: HTAB 17 - 
: PRINT A$ 
1080 GOSUB 1250: 
A: "iOTCNU) 

1090 IF QT(NU) > 99999999 OH Q 
< THEN 1080 
VTAB L: HTAB 26: 



T(NU) 

1100 

(NU) 

1110 

RIA: 



LEN (AS) / 2 
INPUT "QUAHTI 



PRINT QT 



INPUT "CATEGO 



GOSUB 12S0: 

; CS 

1120 DS - CS: GOSUB 9000: IF F 
- THEN 1110 
1130 CT(NU) - N«: VTAB L: HTAB 



4 APUa0ES 4 ~|| 



38: PRINT LEFT$ (CTS (CT (NU) > , 3 

) ; 

1140 IF C < > 8 THEN GT - GT 

+ QT(NU) 

1150 NU - NU .+ 1:L - L + 1: IF 

L - 21 THEN 1000 

115S GOTO 1020 

1160 L - 3: PfllNT " data"; TAB 

( 15);"iteBi"; TAB< 26);"quantia 

'i TAB( 38) i'caf; 

1170 RETURN 

1250 HTAB 1: VTAB 23: CALL - 

9Se : RETURN 

2000 HOME : FOR N - 1 TO 8 

2010 HTAB 10: VTAB 2 * N + 3 

2020 PRINT N;":- ":CTSCN): NEX 

T 

2030 TT - 0: HTAB 15: VTAB 23: 

PRINT "Qual cateooria? "; 

2040 GET AS: IF AS < "1" OH AS 

> "6" THEN 2040 
2050 MM - VAL (A$) 
2060 IF PT - 1 THEN PRINT : P 
RINT CHRS (4);"PR#1": PRINT C 
HRS (9};"80N': PRINT SPC< 40 - 
LEN (CTS (NM) ) / 2>;CTS(NM): P 
RINT : PRINT SPC ( 10);" DATA" 
; SPC( 17); "ITEM"; SPC{ 18) "QUA 
NTIA' : PRINT CHRS (4);"PRiO' 
2070 GOSUB 2280 
2 080 FOR NN - TO NU 
2090 IF CT(NN) < > NM THEN 21 
50 

2100 IF PT - 1 THEN PRINT : P 
RINT CHRS [4):''PHil": PRINT C 
HRS (9);"80N";: PRINT SPC< 10) 
;DTS(NN); SPC t 5 + (8 - LEN (D 
TStNN)))) ;TES(NN) : SPC ( 6+25 
- LEN (TES(NN))); SPC ( 7 - LE 
N C STR$ (QT(NN) ] ) > ;QT tNN} : PRI 
NT CHRS (4) ; 'PR#0" 
2110 VTAB L: HTAB 1: PRINT DTS 
(NN) ; :AS - LEFTS (TES (NN) , 20 ) : 

HTAB 10: PRINT AS;: HTAB 32 + 
(7 - LEN < STRS (QT(NN)))): PR 
INT OT{NN);:TT • TT + QT (NN) 
2120 L - L + 1: IF (L - 2l AND 
NM < > 8) OR (L - 19 AND NM - 
8) THEN VTAB 23: HTAB 15: PRIN 
T "Scroll ?' ; : GET A$ : GOSUB 22 
80 

2150 NEXT : I F PT - 1 AND NM < 
> 8 THEN PRINT : PRINT CHRS 

(4);"PR|1": PRINT CHR$ {9);"0 
ON" : PRINT : PRINT : PRINT SPC 
( 40);"TOTAL ->";TT: PRINT CHR 
$ (4) :*PR|0- 

2160 VTAB 23; HTAB 21: PRINT " 
TOTAL ->";TT; 

2170 IF NM < > 6 THEN 2260 
2180 IF PT - THEN 2220 
2190 PRINT : PRINT CHRS (4);" 
PRIl': PRINT CHRS (9);"80N": P 
RINT : PRINT ; PRINT SPC( 40) ; 
"RENDA TOTAL ->": SPC( 9 - LEN 

( STRS (TT)));TT: PRINT SPC( 
36) ; 'DESPESAS TOTAIS ->' ; SPC ( 
9 - LEN { STRS <GT) ) ) :GT 
2200 PRINT SPC( 54);' 

2210 PRINT SPC( 44) ;"BALANCO 
->*; SPC( 9 - LEN ( STRS (TT - 
1« GT)));TT - CT; PRINT CHRS (4) 



2220 VTAB 21: HTAB 18: PRINT " 

RENDA TOTAL ->" ;TT 

2230 VTAB 22: HTAB 15: PRINT " 

DESPESAS TOTAIS ->":GT; 

2240 VTAB 23: HTAB 20: PRINT " 

BALANCO ->";TT - GT ; 

2250 GET AS 

2260 IF AS < > CHRS (13) THE 

N 2000 

2270 RETURN 

2280 HOME :L - 4: HTAB 20 - L 

EN {CTS(NM)) / 2: PRINT CT5 (NM) 

2290 PRINT " data"; TAB ( 18); 

"itea"; TAB { 32) ; "quant ia" ; 

2300 FOR N - 4 TO 21: VTAB N: 

HTAB 9: PRINT "!";; HTAB 31: PR 

INT " ! " ; ; NEXT 

2310 RETURN 

3000 HOME : VTAB 15: HTAB 10: 

INPUT "Nome do arquivo? "jDAS 

3010 IF DAS - "" THEN RETURN 

3020 PRINT : PRINT CHRS {4);" 

OPEN";DAS 

3030 PRINT CHRS (4) ; "DELETE" ; 

DAS 

3040 PRINT CHRS (4) ; "OPEN" ; DA 

S 

3050 PRINT CHRS (4) ; "WRITE" ; D 
AS 

3060 PRINT NU 

3070 FOR N - TO NU - 1: PRIN 
TDTS(N); CHRS C13);TES(N); CHR 
S (13);CT(N); CHRS (13);CT{N): 
NEXT 

3080 PRINT CHRS (4); "CLOSE": 

RETURN 

4000 HOME : VTAB 15: HTAB 10: 

INPUT "Nome do arquivo? " ; DA$ 

4010 IF DAS - "" THEN RETURN 

4015 GT - 

4020 PRINT : PRINT CHH$ (4);" 

OPEN" ;DAS 

4030 PRINT CHRS (4 ) ; "READ" ;DA 

$ 

4040 INPUT NU 

4050 FOR N - TO NU - 1 

4060 INPUT DTS (N) ,TES£N) ,QT{N) 

.CT(N) 

4065 IF CT(N) < > 8 THEN GT - 

GT + QT(N) 
4 70 NEXT 

40B0 PRINT CHRS (4); "CLOSE" 
4090 RETURN 

5000 HOME : VTAB 15: HTAB 10: 
PRINT "Ligo a iiapreasora? (S/N) 



SOlO GET AS 
D AS < > "N 
5020 PRINT 
OKI " : IF AS 
RETURN 
5030 PT - 1 : 
6000 IF NU 
6020 VTAB 2 
reaaione (-> 
INT "Preasio 
eder"; PRINT 
acos para co 
6030 GET AS 
6040 IF AS 
100 
6050 IF AS 



: IF AS < > "S" AN 
' THEN 5010 
: PRINT TAB( 20) ;" 

- "N" THEN PT - 0: 

RETURN 

- THEN RETURN 

0: PRINT : PRINT "P 
I para avancar": PR 
ne t 'v- ] para retroc 
"Ou a barra de eap 
rriqir" ; ; GOTO 6080 

- CHRS (32) THEN 6 

- CHRS (21) AND M 



< NU - 1 THEN M - H + 1: GOTO 6 

OBO 

6060 IF AS - CHRS (8) AND M > 

THEN M - M - 1 : GOTO 6080 
60 70 GOTO 6030 

6080 VTAB 5: HTAB 1: CALL - 8 
68: PRINT "DATA: '';DTS(M) 
6090 VTAB 8: CALL - 868: PRIN 
T "ITEM: ";TES(M): VTAB 11 
: CALL - 868: PRINT "QUANTIA: 

";QT{M): VTAB 14; CALL - 868 
: PRINT 'CATEGORIA: ";CTS(CTtM) 
) 

6095 GOTO 6030 
6100 IF CT(M) < > S THEN GT - 

GT - QTCM) 
6110 FOR X - 1 TO 4 
6120 VTAB X * 3 + 2: HTAB 12: 
CALL - 868; INPUT "";DS 
6130 ON X GOTO 6200.6300.6400, 
6500 

6140 NEXT 
6150 IF CT(M) < > 8 THEN GT - 

GT -t- QT(M) 
6160 RETURN 

6200 IF DS - '" THEN OS - DTSt 
H) : GOTO 6600 

6210 IF LEN (DS) > 8 THEN 612 


6220 DTS (M) - DS; NEXT 
6300 IF DS - "" THEN DS - TESC 
M) ; GOTO 6600 

6310 IF LEN (DS) > 25 THEN 61 
20 

6320 TE$(M) - D$: NEXT 
640 IF UAL (DS) - THEN DS 
- STRS (QT(M)): GOTO 6600 
6410 IF VAL (DS) > 9999999 TH 
EN 6120 

6420 QT(H) - VAL (DS) : NEXT 
650 IF DS -" "" THEN DS - CTS C 
CT(M) ) : GOTO 6600 
6SrlO GOSUB 9000: IF F - THEM 

6120 
6520 CT(M) - NM: GOTO 6140 
6600 VTAB 3 * X + 2: HTAB 12: 
PRINT DS: NEXT ; RETURN 
7000 VTAB 15: HTAB 8: PRINT "T 
ermino o programa? (S/N)"; 
7010 GET AS: IF AS < > "S" AN 
D AS < > "N" THEN -7010 
7020 IF AS - "N" THEN RETURN 
7030 END 

8000 IF PEEK [222) < > 5 THE 
N RESUME 

8005 PRINT CHRS (4); "CLOSE" 
8010 PRINT CHRS (4) ; "DELETE" ; 
DAS 

8020 HOME : VTAB 20: HTAB 10: 
FLASH : PRINT "ARQUIVO INEXISTE 
NTE! " 
8030 FOR I ■> 1 TO 2000: NEXT : 

NORMAL 
6040 GOTO 50 

9000 IF VAL (DS) < > THEN 
9030 

9010 F - 0: FOR N • 1 TO 8 
9020 IF LEFTS {DS.3) - LEFTS 

(CTS(N),3) THEN F - 1 : NM - N 
9025 NEXT : RETURN 
9030 IF VAL (DS) > 8 THEN F • 

0: RETURN 
9040 NH - VAL (DS):F - 1; HETU 
RN 



CONCUreOJNPUT 



Sottejo 



5 microcomputadores para os sorteados 
do 1? ao 5? premios da Loteria Federal 

REGULAMENTO 



Para concorrer no 2° sorteio do sensacional Concurso 
INPUT, voce deve juntar 06 selos que virao no canto 
inferior direitodos fascicules 1 a 16(1 seloporedicao), 
indistintamente. Se voce enviou a cartela para o 1? 
sorteio, ainda sobraram 02 selos que poderao ser usa- 
dos agora. Caso preflra nao usa-los, envieos selos das 
demais edigoes citadas. 

Cole OS 06 selos na cartela abaixo, ou envie-os cola- 
dos num papel dentro de urn envelope. 
Voce recebera um numero com o qual concorrera no 
sorteio da Loteria Federal do dia 04 de outubro de 
1986. Serao aceitas as cartelas/ selos enviados ate 
05.09.86. 



A cartela/selosdeverao ser enviados juntamente com 
seu nome, endereco, telefone, n? da carteira de identi- 
dade (do participante ou responsavel) e CPF, num en- 
velope enderegado ao CONCURSO INPUT - Caixa 
Postal 9442, CEP 01000, Sao Paulo - SP. 
OBS . : A prescricao do direito aos premios se dara 180 
dias apos o sorteio. O resultado sera publicado nos 
fasciculos INPUT e os premios entregues por nossos 
distribuidores nas cidades de residencia dos contem- 
plados. 

Se tiver alguma duvida, consulte nosso Servico de 
Atendimento ao Leitor, pelo telefone (01 1 ) 81 5-8055 - 
ramal 235. 
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Nome: 

Enderego: 

CEP: 

Estado: 

CPF: 






Cidade: 














































Pone: 



Cedula de Identidade: 



] 



Nao perca mais esta chance de ganhar um dos 10 sensacionais 
microcomputadores HOT BIT HB 8.000 SHARP. 
Continue colecionando INPUT. Seu micro ganha vida. 



HOVA 
CULTURAL 



IIIIIHIBNO PROXIMO NUMEROBHIIIIIII 



PROGRAMAQAO BASIC 

Facilite a compreensao das instrucoes, listas e tabelas, 
organizando corretamente a disposigao das informagoes. 

PROGRAMAQAO DE JOGOS 

Como tornar mais difi'cil urn jogo de labirinto. Marque o 
tempo necess^rio para encontrar um tesouro. 

C6DIG0 DE MAQUINA 

Os problemas com binaries e hexadecimais quando 6 
necessario representar numeros negatives. 

PROGRAMACAO BASIC 

T6cnicas para tornar os programas mais curtos. 
Os comandos abreviados. 



R^tAft(J^O 



ONVPUtfcOOttS 



CURSO 



prM^co 



-PRO 



GRAfA'^^'^° 



Dt JOGOS 






